batch erstellen

[moperswings]

Ich möchte beim FireFox ein paar Lesezeichen dranhängen. Und zwar bei 30PCs. Deshalb habe ich mir ein kleines Programm geschrieben, das ich übers Netzlaufwerk verteile. Also würde sich eine batch anbieten. Doch wie erstelle ich aus meinem Code eine batch?
Nach der OH-Erklärung wird mein Programm auch als bat erstellt, funktioniert aber nicht!
Könnte mir jemand helfen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
        pfad: string;
        ts: TStringlist;
begin
        pfad := ExtractFilePath(paramstr(0)) + 'bookmarks.html';
        ts := TStringlist.Create;
        ts.LoadFromFile(pfad);
        ts.Delete(ts.Count - 1);
        ts.Text := StringReplace(ts.Text, '</DL>

',
        '</DL>


' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10 +
        'http:// ... /
' + #13#10  +
        'http:// ... /
' + #13#10 +
        '</DL>

', [rfReplaceAll]);
         ts.SaveToFile(pfad);
end;