System Delphi

{
Sistem butonlarindan help butonuna
basilmis gibi algilayacaktir program
}
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Self.Handle, WM_SYSCOMMAND, $0000f180, $023A02B);
end;