if...then...else

[leddl]

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