Delete Command - Syntaxfehler?

[VkPenguin]

Guten Tag und Frohe Weihnachten ersteinmal!
Habe mich für mein Programm nach einer Lösung umgeschaut und im Prinzip auch eine hier gefunden: http://www.delphipraxis.net/156868-l...er-laenge.html

Ist sicherlich ein Anfängerfehler, aber ich möchte ebenfalls die letzte Ziffer meines Strings löschen. Hier ein Auszug aus dem Code:

Delphi-Quellcode:

...
System.schreibeText('Bitte Namen Eingeben und mit PFEILOBEN bestätigen! (LÖSCHEN:PFEILUNTEN)');
  repeat
  if Tastatur.wurdeGedrueckt then
  Begin
    if ((GetKeyState(VK_DOWN) AND 128)=128) then
    Begin
    delete(SpielerName, length(SpielerName), 1);
    System.bewegeBis(derBildschirm.breite/2-200,680);
    System.schreibeText('                                                      ');
    System.bewegeBis(derBildschirm.breite/2-200,680);
    System.schreibeText(SpielerName);
    End
    Else
    Begin
    H:=Tastatur.zeichen;
    Spielername:=SpielerName+H;
    System.bewegeBis(derBildschirm.breite/2-200,680);
    System.schreibeText(SpielerName);
    Tastatur.weiter;
    End;
   End;
  until ((GetKeyState(VK_UP) AND 128)=128);
...

Doch wenn ich Pfeilunten drücke wird jedesmal der gesamte String gelöscht.. wie kann das sein? Danke für die Hilfe!