Delphi-Quellcode:
//[...]
procedure TForm1.Beenden1Click(Sender: TObject);
begin
Close;
end;
begin
if (Form1.Label5.Caption='') then
begin
Form1.Label1.Caption:=Form1.Label5.Caption;
end
else
begin
Form1.Label1.Caption:=Form1.Label6.Caption;
end;
end
end.
So, wir haben eine Prozedur, die einwandfrei abgeschlossen wird. Danach fängst du mit einem Begin an, ohne dich in irgendeiner Methode zu bewegen -> geht nicht...
Zum anderen fehlt am vorletzten end jetzt ein Strichpunkt
PS: Tu dir selbst einen Gefallen und rück deinen Quelltext ein bißchen ein. Das kann man ja kaum anschauen sowas
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;