2d Jump 'N' Run Animations Problem

[Chewbacca]

Das hab ich versucht, aber kriegs net hin.
Wie genau überprüfe ich das? Bis jetzt isses das

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If Key = VK_RETURN AND Figur1.??? (Rechts) Then
 Begin
  Shot.SetBounds (Figur1.Left + 70, Figur1.Top + 20, 40, 6);
  Shot.Visible := True;
  Shot.Transparent := True;
  Shot.Walk ((Figur1.Left + 70) + 300, Figur1.Top + 20, 30);
  Shot.Visible := False;
 End
Else
 Begin
  Shot.SetBounds (Figur1.Left + 10, Figur1.Top + 20, 40, 6);
  Shot.Visible := True;
  Shot.Transparent := True;
  Shot.Walk ((Figur1.Left + 10) - 300, Figur1.Top + 20, 30);
  Shot.Visible := False;
 End;
end;

was genau muss überprüft werden?