альтернативные методы

[aktivizion]

вот кусок кода

type
  ts1_Info = packed record 
    a1  :   Single;
    a2  :   Single;
    a3  :   integer;
    a4  :   integer;
    ...
end;
  Pts1_Info = ^ts1_Info;
    ...  
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FileExists(ExtractFilePath(Application.ExeName) + '.\123.data') then
  begin
    ShowMessage('123.data');
    Application.Terminate;
    Exit;
  end;
  try
    MyStream := TFileStream.Create('.\123.data', fmOpenRead);
    MyStream.Read(FileVer,4);
    Form1.Caption := '12345';
    ReadData;
    lvShowData;
  finally
    MyStream.Free;
  end;
end;  

procedure TForm1.ReadData;
var
  i:Integer;
  count:Integer;
begin
   MyStream.Read(count,4);
  ts1List := TList.Create;
  MyStream.Read(count,4);
  for i := 0 to count-1 do
  begin
    new(Pts1);
    MyStream.Read(Pts1^,sizeof(ts1_info));
    ts1List.Add(Pts1);
  end;
 end;
...

как можно добавить в него ещё ОпенДиалог,
или просто есть ли альтернативыне методы загрузки файла и его чтение

[Stilet]

как можно добавить в него ещё ОпенДиалог,

Кинь на форму. Там где нужно открыть файл напиши

if OpenDialog.Execute then
 Открываем файл, путь которого в OpenDialog.FileName

[aktivizion]

ну вроде добился чего хотел

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  try
    MyStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    MyStream.Read(FileVer,4);
    Form1.Caption := '123.data';
    ReadData;
    lvShowData;
  finally
    MyStream.Free;
  end;
end;

а тут правило одна тема один вопрос?
вроде по теме продолжение:
как можно считать файл с определенного места
MyStream.Read(FileVer,4);
...
MyStream.Read(count,4);
ts1List := TList.Create;
MyStream.Read(count,4);
for i := 0 to count-1 do
может гдето здесь?