VB Funktions Übersetzung in Delphi

[Klaus01]

eventuell so:

Delphi-Quellcode:

procedure BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
    dataByte: Byte;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenWrite,fmShareDenyNone));
  try
    fileStream.seek(0,soFromEnd);
    dataByte := 0;
    for i := 1 to 1024 do
      begin
        FileStream.WriteBuffer(dataByte,1);
      end;
  finally
    FileStream.Free;
  end;
end;

Grüße
Klaus