[Uniq!]

Код:

procedure EMNPGraph.LoadFromFile(const FileName: TFileName);
var
 tFile : TextFile;
 tmp : string;
begin
AssignFile(tFile,FileName);
 Reset(tFile);
 while not EoF(tFile) do
  begin
  SetLength(gX,length(gX)+1);
  SetLength(gY,length(gY)+1);

  ReadLn(tFile,tmp);
  tmp:=trim(tmp);

  gX[length(gX)-1] := StrToInt(Copy(tmp,0,Pos(' ',tmp)-1));
  Delete(tmp,1,Pos(' ',tmp)-1);
  gY[length(gY)-1] := StrToInt(Trim(tmp));
  end;
 CloseFile(tFile);
gLength := length(gX)-1;
end;