1:
2:

x.LoadFromFile('c:\Edit.txt');
korSystem.Canvas.LineTo(x,y);					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;					

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:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:

function Optimised(Wert: String): String;
Var Res     : String  ;
    Sammler : String  ;
    Ftd1    : Integer ;
begin
  Res      := '' ;
  Sammler  := '' ;

  For Ftd1 := 1 To Length( Wert ) Do
  Begin
    If ( Ord ( Wert[ Ftd1 ] ) <= 32 ) Then Sammler := Sammler + Wert[ Ftd1 ]
    Else
    Begin
      If Not ( Res = '' ) Then Res := Res + Sammler ;
      Res := Res + Wert[ Ftd1 ] ;
      Sammler := '';
    End;
  End;

  Result := Res;
end;

Function GetNDelUntil ( Var Value : String; ASigne : Char ; Optimize : Boolean = TRUE ) : String  ;
Var Res   : String  ;
    Ret   : String  ;
    Len   : Integer ;
    Possition : Integer ;
Begin
  Len   := Length( Value ) ;
  Possition := Pos( ASigne, Value ) ;
  If Possition = 0 Then
  Begin
    Ret := '' ;
    Res := Value ;
  End
  Else
  Begin
    Ret   := Copy( Value, Possition + 1, Len - Possition ) ;
    Res   := Copy( Value, 1, Possition - 1 ) ;
  End ;
  If Optimize Then
  Begin
    Res := Optimised( Res ) ;
    Ret := Optimised( Ret ) ;
  End ;

  Value  := Ret ;

  Result := Res ;
End ;

procedure TForm1.Button1Click(Sender: TObject); // Button1 ist ein "Button" ( TButton ) auf deiner Maske( Form )
Var List : TStrings ;
    AFileName : String ;
    sX, sY : String ;
    i : Integer ;
Begin
  List := TStringList.Create; // Erstma eine instanz der klasse erzeugen ;-)

  // hier wird der dateiname übergeben:
  AFileName := edit1.Text ; // Edit1 ist ein "Edit-Feld" ( TEdit ) auf deiner Maske( Form )

  If FileExists( AFileName ) Then // Ertma prüfen ob überhaupt vorhanden!
  Begin
    List.LoadFromFile( AFileName ) ;

    If List.Count > 0 then
    Begin
      // erste koordinaten-paar ist der startpunkt
      // versuchma mit debugger nachzuvollziehen was in den folgenden 3 Zeilen passiert ;-)
      sY := UpperCase( List[ 0 ] ) ;
      GetNDelUntil( sY, 'X' ) ;
      sX := GetNDelUntil( sY, 'Y' ) ;
      image1.Canvas.MoveTo( strtoint(sX),strtoint(sY) ); // image1 ist ein "Image-Feld" ( TImage ) auf deiner Maske( Form )

      For i := 1 To List.Count - 1 Do
      Begin
        // Einfache Wiederholung:
        sY := UpperCase( List[ i ] ) ;
        GetNDelUntil( sY, 'X' ) ;
        sX := GetNDelUntil( sY, 'Y' ) ;
        image1.Canvas.LineTo( strtoint(sX),strtoint(sY) ); // image1 ist ein "Image-Feld" ( TImage ) auf deiner Maske( Form )

      End ;
    End ;
    
  End
  Else
  Begin
    // kannst hier reaktion auf nichtvorhandene datei angeben
    // z.B.:
    ShowMessage( 'Datei "'+AFileName+'" exsistiert nicht!' ) ;
  End ;

  List.Free ;// instanz freigeben (speicher freigeben) ab jetzt nichtmehr auf "list" zugreifen ;-) -- gibt häsliche errors!
end ;					

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

//ich geh davon aus dass du zum einlesen auf nen button drückst, ansonsten mach den Code in ne andere procedure rein
procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  Buffer: String;
  x: Array[0..4] of Double;
  i: Integer;
begin
  AssignFile(F, 'Dateipfad\Name');  // vor D7 heißts glaub ich nur Assign(F, 'Pfad\Name');
  Reset(F);
  for i:=0 to 4 do begin
    ReadLn(F, Buffer);
    x[i] := StrToFloat(Buffer);
  end;
  CloseFile(F);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  x, y: Double;
TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'Dateiname\Pfad');
  Rewrite(F);
  WriteLn(F, x);
  WriteLn(F, y);
  CloseFile(F);
end;					

1:
2:

1,5
2,75					

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;
ListX := TStringList.Create;
ListX.LoadFromFile('c:\edit.txt');
ListY.LoadFromFile('c:\edit.txt');
SX:= FloatToStr(ListX.Count);
SX:= FloatToStr(ListX.Count);
begin
KorSystem.Canvas.moveto(300,250); // Nullpunkt wird definiert
KorSystem.Canvas.LineTo(StrToInt(Sx),StrToInt(Sy));
end;
end;					

1:
2:
3:
4:
5:
6:

 
130
120
140
10
45					

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

var
  SX, SY: Integer;
  FX, FY: TextFile;
  Buffer: String;
.....
begin
  AssignFile(FX, 'ersteDatei.txt');  // bzw. Assign(F, 'name.txt');
  AssignFile(FY, 'zweiteDatei.txt');
  Reset(FX);
  Reset(FY);
  ReadLn(FX, Buffer);
  SX := StrToInt(Buffer);
  ReadLn(FY, Buffer);
  SY := StrToInt(Buffer);
  CloseFile(FX);
  CloseFile(FX);
  
  korSystem.Canvas.MoveTo(320,200);
  korSystem.Canvas.LineTo(SX, SY);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure (korSystem.)LineToNeu(x, y: Integer);
var
  UrX, UrY: Integer;
begin
  UrX := 320;
  UrY := 200;
  korSystem.Canvas.LineTo(UrX+x, UrY-y);
end;					

1:
2:

private
  procedure LineToNeu(x, y: Integer);					

1:

LineToNeu(SX, SY);