erstes zeichen in einem edit löschen

[fwsp]

Delphi-Quellcode:

var
  s: String;
  i: Integer;
begin
  s := Edit1.Text;
  Edit1.Clear;
  for i := 2 to Length(s) do
  begin
    Edit1.Text := Edit1.Text + s[i]; 
  end;
end;