[Gad99]

Компилятор все равно ругается вот на эту строчку
AssignFile(Anketa1,(Load1.ListBox1.Items.Objects[Load1.ListBox1.ItemIndex] as TMyFile).Name)+'.tms');
Incompatible types: 'String' and 'Procedure', untyped pointer or parameter.
Весь код

Код:

procedure TForm1.Load1ListBox1DblClick(Sender: TObject);
Var x : string;
begin
  SetCurrentDir(CurDir+'\data\');
  if Load1.ListBox1.ItemIndex < 0 then exit;
  if not (Load1.ListBox1.Items.Objects[Load1.ListBox1.ItemIndex] is TMyFile) then exit;
  AssignFile(Anketa1,(Load1.ListBox1.Items.Objects[Load1.ListBox1.ItemIndex] as TMyFile).Name)+'.tms');
  Reset(Anketa1);
  Read(Anketa1,Anketa);
  CloseFile(Anketa1);
end;

Load1 - это фрейм.