Warum funktioniert ein Code einmal und dann wieder nicht?

[Cyberbob]

Versuch mal das:

Delphi-Quellcode:

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Ord(Key) = 17 then
  begin
    self.Height:=326;
    Bevel1.Visible:=true;
    Edit2.Visible:=true;
  end;
end;