[icWasya]

Код:

procedure TForm1.ReadDatFile(FileName:String);
var
  dat:TextFile;
  S1,S2:String;
  fX,fY:Single;
  X,Y:Integer;
  procedure ReadXY;
  begin
    Read(dat,fX,fY);
    X := Round(kX*fX);
    Y := Round(kY*fY);  
  end;
begin
  Assignfile(dat,FileName);
  Reset(dat);
  ReadLN(dat,S1);
  ReadLN(dat,S2);


  ReadXY;
  Image1.Canvas.MoveTo(X,Y);

  while not Eof(dat) do begin
    ReadXY;
    Image1.Canvas.LineTo(X,Y);
  end;

  CloseFile(dat);
end;