Unbekannte Fehlermeldung

[Sylux]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
   x: integer;
begin
if
     Edit1.Text= '' then
       showmessage('Mehr als 0 Zeichen')
else
     x:= Length(Edit1.Text)*382888294;

     delete(IntToStr(x),4,4);


     Label1.Caption:=IntToStr(x);
end;

end.

Ich bekomme immer die Fehlermeldung:

[Fehler] Passwort(41): Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Bei dieser Zeile: delete(IntToStr(x),4,4);

Der Code soll die Zeichenlänge des Strings den man bei Edit1 gibt ermitteln(hallo=5)
Dann soll er eben die Länge mal die o.g Zahl nehmen.
Dann soll er ab Position 4, 4 Zeichen löschen. Und das Ergebnis in Label1 anzeigen.

Ich weiß leider nicht wie ich den Fehler beheben kann.