Hallo,
auf den ersten Blick sehe ich einen Fehler und zwar der fehlende
begin-end-Block nach dem
else:
Delphi-Quellcode:
if ...
// ...
else begin
x:= Length(Edit1.Text)*382888294;
delete(IntToStr(x),4,4);
Label1.Caption:=IntToStr(x);
end;
Sonst sieht das korrekt eingerückt so aus und dann gäbe es Situationen, in denen
x undefiniert ist:
Delphi-Quellcode:
if ...
// ...
else
x:= Length(Edit1.Text)*382888294;
delete(IntToStr(x),4,4);
Label1.Caption:=IntToStr(x);
Grüße