Fehler am Ende einer Prozedur

[Jan]

Code:

procedure TForm1.Border(Sender: TObject); 
var mittelwert:integer;
begin 
mittelwert:=200;  // z.b.
if 
Ship.Left= mittelwert-150 //maximal 150 Pixel nach links 
then 
moveleft.Enabled:= false 
else 
if 
Ship.Left= mittelwert+150 //maximal 150 Pixel nach rechts 
then 
moveright.Enabled:= false; 
end;