Enter drücken soll zwei versch. Sachen machen

[Tobicaster]

Ich bin's nochmal^^

Ich möchte bei meinem Lauftextgenerator gerne den Lauftext mit Enter starten und auch wieder stoppen.

Mein erster Ansatz sieht so aus:

Delphi-Quellcode:

procedure TForm1.EEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then
    begin
      key := #0;
      BStartClick(Sender);
    end

end;

Wie kann ich der Entertaste nun zuweisen, dass sie sie aber die Prozedur BStopClick auslösen soll, wenn der Text grade am laufen ist?