[AND_REY]

Может так:

Код:

var

f1:TStrings;
  f:TFileStream;
  buf: array[0..2] of char;
  ch,i:Integer;
  str:String;
  ch1:Integer;
  str1:String;
  i:integer;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 f:=TFileStream.Create('c:\cities.dat', fmOpenReadWrite);
 For i:= 1 To 10 Do
 begin
  f.Read(buf,2);
  str:=buf;
  ch:=StrToInt(str);
  f.Seek(1,SoFromCurrent);
  f.Read(buf,2);
  str1:=buf;
  ch1:=StrToInt(str);
  PaintBox1.Canvas.Pixels[ch,ch1]:= clBlack;
end;
end;