Fehler am Ende einer Prozedur

[Jan]

Code:

procedure TForm1.move(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key=ord('A') then
 moveleft.Click
 else if Key = ord('S') then
 moveright.Click;
end;

procedure TForm1.moveleftClick(Sender: TObject);
begin
  if (border('L')) then
  Ship.Left:= Ship.Left -5;
end;

procedure TForm1.moverightClick(Sender: TObject);
begin
  if (border('R')) then
  Ship.Left:= Ship.Left +5;
end;

function TForm1.Border(LorR:string):boolean;
var mittelwert:integer; 
begin
  result:=true;
  mittelwert:=200;  // z.b. 
  if Ship.Left= mittelwert-150 then //maximal 150 Pixel nach links
  begin 
    if LorR='L' then
    result:=false;
  end 
  else if Ship.Left= mittelwert+150 then //maximal 150 Pixel nach rechts
  begin
    if LorR='R' then 
    result:=false;
  end; 
end;

end.