#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;

#sha
Add(ListBox,1049373,231,126)
{
 Left=115
 Top=70
 Strings=#10:c:get.txt|
}
Add(ArrayEnum,12617545,245,203)
{
 link(onItem,7074978:doEvent1,[])
 link(Array,1049373:Array,[])
}
Add(Button,8909709,182,203)
{
 Left=140
 Top=160
 link(onClick,12617545:doEnum,[])
}
Add(FilePart,5892597,420,203)
{
 ExtPoint=0
 link(onExt,14658165:doValue,[(464,223)(464,209)])
}
Add(Memory,14658165,476,203)
{
}
Add(FileTools,231447,483,357)
{
 link(FileName,12617545:Item,[(489,296)(251,296)])
}
Add(ArrayRW,7926775,364,203)
{
 link(onRead,5892597:doPart,[])
 link(Array,11496220:Array,[])
 link(Index,12617545:Index,[(377,191)(289,191)(289,247)(258,247)])
}
Add(ListBox,11496220,350,126)
{
 Left=180
 Top=70
 Strings=#8:text.dat|
}
Add(FilePart,12300244,364,259)
{
 link(onPath,7283650:doValue,[])
 link(onName,3725394:doValue,[(408,272)(408,314)])
}
Add(Hub,7074978,308,203)
{
 OutCount=3
 link(onEvent1,7926775:doRead,[])
 link(onEvent2,12300244:doPart,[(356,216)(356,265)])
 link(onEvent3,7565902:doString,[(350,223)(350,363)])
}
Add(Memory,7283650,420,259)
{
}
Add(Memory,3725394,427,308)
{
}
Add(FormatStr,7565902,420,357)
{
 DataCount=3
 Mask="%1%2%3"
 link(onFString,15439597:doEvent,[])
 link(Str1,7283650:Value,[])
 link(Str2,3725394:Value,[])
 link(Str3,14658165:Value,[(440,343)(482,343)])
}
Add(Debug,15439597,462,357)
{
 link(onEvent,231447:doMove,[])
}

#sha
Add(FileTools,231447,483,357)
{
 link(FileName,12617545:Item,[(489,296)(251,296)])
}

EB Script