VB Funktions Übersetzung in Delphi

[Back2Code]

Hi DP,

ich bräuchte mal Hilfe bei einer VB Funktion die richtig nach Delphi zu übersetzen. Ich bin schon nen Stück vorangekommen aber leider nicht komplett.

Code:

    Private Sub BumpExe(ByVal sPfad As String)
        Dim fs As FileStream = File.Open(sPfad, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
        Dim bw As New BinaryWriter(fs)
        fs.Position = fs.Length + 1

        For i = 1 To 1024
            bw.Write(Chr(0))
        Next

        bw.Close()
        fs.Close()

    End Sub

Bisher sieht die Delphi Prozedur so aus:

Delphi-Quellcode:

procedure BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenRead+fmShareDenyNone));
  // ??

  for i := 1 to 1024 do 
  begin
    FileStream.WriteBuffer(Chr, 0); //??
  end;
  
  FileStream.Free;
end;

Würde jetzt gerne mal wissen, was noch genau fehlt bzw bei mir falsch ist. Danke