Enter drücken soll zwei versch. Sachen machen

[Tobicaster]

Delphi-Quellcode:

implementation
  var
    lauftext, buchstabe: string;
    tbwert: integer;
    LauftextActive: boolean;
{$R *.dfm}


procedure TForm1.TimerTimer(Sender: TObject);
begin
  buchstabe := copy(lauftext, 1, 1);
  delete(lauftext, 1, 1);
  LLauftext.Caption := lauftext + buchstabe;
  lauftext := LLauftext.Caption;
end;



procedure TForm1.TrackBarChange(Sender: TObject);
begin
  tbwert := TrackBar.Min + TrackBar.Max - Trackbar.Position;
  Timer.Interval := tbwert;
  ProgressBar.Position := TrackBar.Position;
end;

procedure TForm1.BCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TForm1.BStartClick(Sender: TObject);
begin
  Timer.Interval := TrackBar.max;
  lauftext := EEdit.Text + '                                               ';
  setLength(lauftext, 50);
  LLauftext.Caption := lauftext;
  Timer.Enabled := true;
  EEdit.Visible := false;
  LauftextActive := true;
end;


procedure TForm1.BStopClick(Sender: TObject);
begin
  Timer.Enabled := false;
  LLauftext.Caption := '<Hier erscheint der Lauftext>';
  EEdit.Visible := true;
  LauftextActive := false;
end;



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




    
end;

end.

Klappt aber leider nicht =/