function IsDebuggerPresent(): Boolean; external 'kernel32.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsDebuggerPresent() = True then
ShowMessage( 'Debugger or IDE detected' )
else
ShowMessage( 'Debugger or IDE NOT detected' );
end;