String zerlegen und Teile in Integer umwandeln, AsyncPro

[Spurius]

Hallo,
also es geht jetzt, aber nur wenn ich weniger als 7 Zeichen insegamt habe. Also 67:331 ist ok, aber 103:223 nicht, da komt wieder ein Fehler wegen ungültigem Integer.

Delphi-Quellcode:

procedure TForm1.signale;
var i,j,k,nummer_i,wert_i: integer;
    nummer, wert, input2: string;
begin
 input2 := '';
 input2 := trim(input);
 i := 0;
 i := pos(':', input2);
 nummer := copy(input2,1,i - 1);
 wert := copy(input2,i + 1,length(input));
 memo1.Lines.Add(input2);
    nummer_i := strtoint(nummer);
    wert_i := strtoint(wert);
// paintbox1.Canvas.MoveTo(round(arccos((nummer_i-49)*3861/(Wert_i-37)))*8,8*round(arcsin((nummer_i-49)*3861/(Wert_i-37))));
// paintbox1.Canvas.Pixels[round(arccos((nummer_i-49)*3861/(Wert_i-37)))*8,8*round(arcsin((nummer_i-49)*3861/(Wert_i-37)))] := clred;
 memo2.Lines.Add(wert);
end;