Ahhh!
Ich habe mich fürchterlich geirrt!
Das funktioniert zwar alles so, ABER der 3. Parameter von Delete gibt nicht die Position an bis zu der gelöscht werden soll sondern wieveile Zeichen gelöscht werden sollen.
Also muss es bei dir heißen:
Delete(EditTemp, Length(Edit1.Text), 1);
Dann löscht er von Length(Edit1.Text) aus 1 Zeichen.
Hier ist das egal weil es eh das letzte Zichen ist aber sonst...
Willnix