Пытаюсь увеличить размер бинарника дописать в конец файла нули...
Написал процедуру, но никак, вылетает ошибка...
Скажите что не так?
Увеличиваю стороннюю прогу из своей...

procedure addsize;
var
f:TfileStream;
i,i1:integer;
bin:char;
begin
f:=TFileStream.Create('file.exe', fmOpenRead);
f.Seek(0, soFromEnd);
i1:=Strtoint(Form1.Edit2.Text)*1000;//тут указывается на сколько увеличить...
bin:=#00;
f.WriteBuffer(bin,i1);
f.Free;
end;