[NumLock]

windows 7 тут ни при чем:

Код:

procedure TForm1.open_to_encode;
begin
if Form1.flpndlg1.Execute
then
begin
//input.Create(form1.flpndlg1.FileName, fmOpenWrite, fmShareDenyWrite);
input:=TFileStream.Create(form1.OpenDialog1.FileName, fmOpenWrite, fmShareDenyWrite);