#pas
procedure TForm1.Exit1Click(Sender: TObject);
var I:Smallint;
    Imia:string;
    Ras:string;
    Dirr:string;
begin
for I := 0 to ListBox1.Items.Count-1 do
begin
Imia:= ExtractFileName(ListBox1.Items.Strings[i]);
Ras:= ExtractFileExt(ListBox2.Items.Strings[i]);
Imia:= ChangeFileExt(Imia,Ras);
Dirr:= ExtractFileDir(ListBox1.Items.Strings[i]);
RenameFile(ListBox2.Items.Strings[i],Dirr+'\'+Imia);
Beep;
end;
end;