Curosr in TEdit ans Ende setzen

[Furtbichler]

Delphi-Quellcode:

Procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text='' Then begin
    Edit1.Text := 'http://';
    Edit1.SelStart := Length(Edit1.Text);
  end;
end;

So, nun versuch mal, das Edit-Feld zu leeren.