Как реализовать передвижение персонажа в Delphi?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);    
if (image1.Left < 1000) then
    begin
        if key = vk_right then image1.Left := image1.Left + 5;
        end;
        if (image1.Left > 0) then
           begin
               if key = vk_left then image1.Left := image1.Left - 5;
               end;
    end;

Есть другие идеи или же доработка этого кода?

Обновление

1. И как заставить его прыгать?