[Admin]

Код:

var
 s: string;
 i,j: integer;
 Str: TStringList;
begin
 Str:=TStringLIst.Create;
 Str.LoadFromFile('text.txt');
 for i:=0 to Str.Count-1 do
  begin
    s:=Str.Strings[i];
    if pos('X=',s)<>0
    then
     begin
      j:=pos(' ',s);
      Edit1.Text:=Copy(s,pos('X=',s)+2,j-(pos('X=',s)+2));
      Delete(s,1,pos(' ',s));
      Edit2.Text:=Copy(s,pos('Y=',s)+2,length(s));
     end;
  end;
 Str.Free;
end;