Str gedrückt?

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift =  [ssCtrl]
    then mach_was_anderes := TRUE
    else mach_was_anderes := FALSE;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if mach_was_anderes then NoCtrlKey
    else JuppCtrlKey;
end;

So was ?