Grundlagen-fragen zu VCL-Objekten

[DeddyH]

Da fehlt ein end;

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  case zahl1 of
    1: showmessage ('Sie haben noch 156 € auf ihrem Konto.!');
    2: showmessage ('Ihre Karte wird gesperrt.');
    3: showmessage ('Bitte haben sie etwas Gedult. Sie werden verbunden.');
  end; 
end;//hier

BTW: Benutze bitte die Delphi-Tags, dann ist der Code einfacher zu lesen.