Zeichen aus String entfernen?

[widowmaker2k7]

Hallo Delphigemeinde

Ich steh wie immer vor einem Problem...
ich habe eine zeichenfolge, die so lang ist wie der benutzer es eingibt(maximal 100 zeichen).
so siehts aus:

Delphi-Quellcode:

var zeichenkette1, zeichenkette2:string[100];
    zeichen1, zeichen2:char;
    userzahl, zaehler1:integer;
begin
  memo1.Clear;
  try
    userzahl := strtoint(edit1.Text);
    zeichen1 := '_';
    zeichen2 := '@';
    zeichenkette1 := '';
    zeichenkette2 := '';

ich mache in einer for schleife soviele "zeichen1" in die "zeichenkette1" wie der benutzer eingegeben hat.

Delphi-Quellcode:

    for zaehler1 := 1 to userzahl do
      begin
        zeichenkette1 := zeichenkette1+zeichen1;
        memo1.lines.add(zeichenkette1);
      end;

ich geb das bei jedem durchlauf wieder im memofeld aus
dann erscheint eben sowas:

_
__
___
____
_____
ich hätts aber gerne genau andersrum. dass meine zeichenkette schon solange ist wie der user angegeben hat und ich einfach die zeichen von der kette wieder abziehe
ist klar, dass "zeichenkette1 := zeichenkette-zeichen1; nicht geht ^^
aber gibts dafür vllt einen anderen befehl? oder eine andere lösung?
vielen dank schon mal

Mfg widowmaker