Problème création thread

Bonjour, j'ai un petit problème de création de thread.
Je souhaiterai lancer le thread lorsqu'on appuie sur enter, mais ca bloque dès la crétion sur "inherited Create(CreateSuspended);"
Je ne comprend pas :(
Voici mon code simplifé :


//---- Fonction récupérant la touche Enter-----

procedure Tmario.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
sauter:Tsaut;
begin
if Key=VK_RETURN then
begin
sauter.Create(False); //False pour éxécution directe
end;
end;

//---- Classe THREAD ----

type
TSaut = class(TThread)
public
constructor Create(CreateSuspended:boolean);
end;
implementation

constructor TSaut.Create(CreateSuspended:boolean);
begin
inherited Create(CreateSuspended);
FreeOnTerminate := True;
Priority := tpLower;
end;

Où est passée la méthode Execute ?
Rappel : la méthode Execute de la classe de base est déclarée abstract et ne peut donc être instanciée lors de la création du thread.
(pour info, voici la déclaration dans la classe TThread :
procedure Execute; virtual; abstract;)

Tu dois donc surcharger cette méthode. Pour être sur de ne rien oublier, il vaut mieux utiliser l'assistant (Fichier/Nouveau/Thread).
May Delphi be with you

De plus, tu n'instancies pas le thread de façon correcte :

if Key=VK_RETURN then begin sauter.Create(False);

au lieu de :

if Key=VK_RETURN then begin sauter := TSaut.Create(False);

La méthode Create est une méthode de classe (constructor) et non une méthode qui s'applique à une instance d'une classe.
May Delphi be with you