Как я понимаю, ошибка здесь:
Код:
rocedure TForm1.Button1Click(Sender: TObject);
begin
If OpenDialog1.Execute Then
A:=OpenDialog1.FileName Else Begin
ShowMessage('Вы не ввели имя файла. повторите ввод!') ;
Exit;
end;
VVOD(B);
Label1.Caption:='Введены исходные данные';
Button1.Enabled:=False;
Button2.Enabled:=true;
Button2.SetFocus;
end;
но нигде в приведенном коде нет ни переменных A и B, а так же процедуры VVOD(). вообще, 105я ошибка это: I/O Error 105 is defined as "File not open for output." Т.е. надо смотреть твой код, а именно VVOD, что он делает.