1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Char;
  Shift: TShiftState);
begin
if Key = 'VK_CONTROL' then Key := '0'; //Strg
if Key = 'VK_ESCAPE' then Key := '0'; //ESC
if Key = 'VK_F4' then Key := '0';    //F4-Taste 
if Key = 'VK_DELETE' then Key := '0'; //ENTF
if Key = 'VK_MENU' then Key := '0'; //ALT
if Key = 'VK_LWIN' then Key := '0'; //Linke Windowstaste
if Key = 'VK_RWIN' then Key := '0'; //Rechte Windowstaste
end;                    

1:
2:
3:
4:

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := PasswortPasst;
end;                    

1:
2:
3:
4:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if NichtBeenden then
    Action := caNone;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{Task-Manager disablen}
SystemParametersInfo(SPI_SCRE]ENSAVERRUNNING,1,Nil,0);
.
{Task-Manager enablen}
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,Nil,0);

oder:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, 1, 0);
Label1.Caption:='[Strg] + [Alt] + [Entf] ausgeschaltet';
.
SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, 1, 0);
Label1.Caption:= '[Strg] + [Alt] + [Entf] eingeschaltet';