kann mir mal einer erklären, warum mir beim 2.procedure ein fehler angezeigt wird?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
procedure TForm1.Tasten(Sender: TObject; var Key: Char);
begin
Case Key of
'w':image1.Top:=image1.Top-30;
's':image1.Top:=image1.Top+30;
'a':image1.Left:=image1.Left-30;
'd':image1.Left:=image1.Left+30;
end;
begin
image1.Visible:=true;
Tasten;
end;
end.