Typ File mit Typ String addieren

[SirThornberry]

Ich würde die Objektorientierte Variante vorziehen wenn du bereits damit angefangen hast:

Delphi-Quellcode:

var
  lStream: TFileStream;
begin
  if OpenDialog1.execute then
  begin
    lStream := TFileStream.Create(OpenDialog1.Filename, fmOpenReadWrite);
    try
      lStream.Size := lStream.Size + 1024*1024*3;
    finally
      lStream.Free;
    end;
  end;