Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
A := OpenDialog1.FileName
Else begin
ShowMessage('Вы не ввели имя файла.Повторите ввод!');
Exit; end;
но это лишь обрывок кода тут действительно странная ситуация. Пожалуйста,если есть возможность, посмотрите файл, 240 кб объем.