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:

Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStrings);
Var
  FindRec: tSearchRec;
Begin

  If (aPath = '') or (aFindMask = '') or Not Assigned (aResult) Then
    Exit;


  If aPath[Length (aPath)] <> '\' Then
    aPath := aPath + '\';


  If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then

        aResult.Add (aPath + FindRec.Name);

    Until FindNext (FindRec) <> 0;

  FindClose (FindRec);


  If Not aWithSub Then
    Exit;


  If FindFirst (aPath + '*.*', faAnyFile, FindRec) = 0 Then
    Repeat
      If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
        If Boolean (FindRec.Attr and faDirectory) Then
          FindFiles (aPath + FindRec.Name, aFindMask, aWithSub, aResult);
    Until FindNext (FindRec) <> 0;

   FindClose (FindRec);
End;

procedure TForm1.FormActivate(Sender: TObject);
begin
AssignFile(Waypoint,WPpath+'WP'+Dateiname[1]+'.wap');
Reset(Waypoint);
try
ReadLn(Waypoint, WP_XS);
WP_XS := copy(WP_XS, pos('=', WP_XS), length(WP_XS));
ReadLn(Waypoint, WP_XS);
WP_YS := copy(WP_YS, pos('=', WP_YS), length(WP_YS));
finally
CloseFile(Waypoint);
DNA[2] := DNA[2]+1;
WP_Mar.Left := strtoint(WP_Xs);
WP_Mar.Height := strtoint(WP_Ys);
end;
end;					

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

var
  FileContents: TStringList;
begin
  FileContents := TStringList.Create;
  try
    FileContents.LoadFromFile...
    ShowMessage(FileContents.Values['X']);
    ShowMessage(FileContents.Values['Y']);
    ...
  finally
    FileContents.Free;
  end;