Looking for Delphi 7 code to detect if a program is started with administrator rights?

Question

I am looking for working (obviously) Delphi 7 code so I can check whether my program is started with administrator rights<

Answer 1

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  ShellAPI;

// high-level wrapper, see Ian Boyd's answer for details on this function
function IsUserAnAdmin(): BOOL; external shell32;

begin
  if IsUserAnAdmin() then
    Writeln('TEH R00T OMG')
  else
    Writeln('rtfmnoobkthx');

  Readln;
end.