function LockWorkStation:BOOL; external user32 name 'LockWorkStation'; . . . . procedure TForm1.Button1Click(Sender: TObject); begin LockWorkStation; end;