wie kann ich das 1. zeichen eines edits löschen ?

[24karatboy]

folgendes problem : ich will bei einem taschenrechner die + / - taste einbauen nur jetzt bleib ich hängen wenn ich von - nach + machen will kann mir da jemand helfen mit delete oder so ?

hier schonmal das was ich gemacht habe:

Delphi-Quellcode:

x:=strtoint(edit1.text);

  if (x > 0) then
    x:=-x;
    edit1.Text:=inttostr(x)
  else if (x < 0) then begin
    if pos( '-', Edit1.Text ) = 1 then

      edit1.Text:=inttostr(x);