[aleksnine]

Ну попробуй так

Код:

Procedure SavePL(Filename:string;LB1,LB2:Tlistbox);
var
i,c1,c2:integer;
T:textfile;
begin
AssignFile(t,FileName);
ReWrite(t);
c1:=lb1.Items.Count;
c2:=lb2.Items.Count;
if c1<>c2 then exit;
for i:=0 to c2 -1 do begin
writeln(t,'Track: ' + lb1.items.strings[i]);
writeln(t,'Path: ' + lb2.items.strings[i]);
end;
closefile(t);
end;

Код:

savepl('C:\1.txt',listbox1,listbox2);