>>486

function IsDebuggerPresent:bool; stdcall; external 'kernel32.dll' name 'IsDebuggerPresent';

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsDebuggerPresent then
    ShowMessage('Debugger is Present')
  else
    ShowMessage('Debugger is not Present');
end;