Die Fehlermeldung sagt ja schon alles aus.
Zitat:
procedure TForm1.FormKeyDown(Sender: TObject; var Key : Char);
begin
if key=#87 then
Image1.Top := Image1.Top -5 << Hier fehlt das Semikolon
begin << Wozu nochmal begin?
end; << 2x begin, nur 1x end
end.