1:
2:
3:
4:
5:

12
24
10
5
120					

1:
2:
3:
4:
5:

7
13
190
12
4					

1:

SX:= ListX. ???(0);					

1:
2:

korSystem.Canvas.MoveTo(200,200); // hier gehe ich zum Koordinatenurpsrung
korSystem.Canvas.LineTo(200+(StrToInt(SX));200-(StrToInt(SY))); // hier will ich halt die Linie zeichnen (R/U- Kennlinie)					

1:
2:
3:
4:
5:

12;7
24;13
10;190
5;12 
120;4					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

function ZeichenKetteAufloesen(s: String; var s1, s2: String): Word;
const
  d = ';';
begin
  s := Trim(s);

  Result := 1; // Wert für Zeile hat keinen Trenner.
  if Pos(d, s) = 0 then Exit;

  Result := 2; // Wert für Trenner ist an ersten Stelle.
  if Pos(d, s) = 1 then Exit;

  s1 := Trim(Copy(s, 1, Pos(d, s) - 1));
  Delete(s, 1, Pos(d, s));
  s2 := Trim(s);

  Result := 0; // Wert für kein Fehler

  // Die Werte sind jetzt in s1 und s2
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s, s1, s2: String;
begin
  Canvas.MoveTo(0,0);

  with Memo1.Lines do
    for i := 0 to Count - 1 do
    begin
      s := Strings[i];
      if Trim(s) = '' then Continue;

      if ZeichenKetteAufloesen(s, s1, s2) > 0 then
      begin
        MessageDlg('Fehlerhafte Werte in Zeile: ' + IntToStr(i + 1),
          mtError, [mbOK], 0);
        Exit;
      end;

      Canvas.LineTo(StrToInt(s1), StrToInt(s2));
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var Sx,Sy :String; 
ListX: TStrings; 
ListY: TStrings; 
..... 
begin 
ListX := TStringList.Create; 
ListY := TStringList.Create; 
ListX.LoadFromFile('c:\edit.txt'); 
ListY.LoadFromFile('c:\edit2.txt'); 
SX:=FloatToStr(ListX. ...); // und hier dachte ich mir das so irgendwie realisieren zu können weil ich den wert aus der list ja in der varibalen haben will
SY:=FloatToStr(ListY. ...);
begin 
KorSystem.Canvas.moveto(200,220); // Nullpunkt wird definiert 
KorSystem.Canvas.LineTo(StrToInt(Sx),StrToInt(Sy)); 
end; 
end;					

1:
2:

SX:=FloatToStr(ListX. ...); // und hier dachte ich mir das so irgendwie realisieren zu können weil ich den wert aus der list ja in der varibalen haben will
SY:=FloatToStr(ListY. ...);					

1:
2:
3:
4:

  with Memo1.Lines do
    for i := 0 to Count - 1 do
    begin
      s := Strings[i];					

1:

 KorSystem.Canvas.LineTo(200+StrToInt(SX),200-StrToInt(Sy));					

1:
2:
3:
4:
5:

12;7 
24;13 
10;190 
5;12 
120;4