Работа со строками

[Staziah2]

Добрый день! Какая функция лучше,чтобы можно сделать так,например:
1строка=SKMBT_C284e15050516380_0001 .tif
2 строка= \\fs\наряды\14\01.tif
и чтоб получилось вот так: \\fs\наряды\14\01(0001).tif.
Не знаю,то ли функция копи,то ли какие.Не догадываюсь пока.

Вот мой код:

procedure TForm2.Button1Click(Sender: TObject);
var Path1, Path2 , Path3: String;
begin
Path1 := Form2.wwDBComboDlg1.Text; //открыли опендиалог,выбрали файл,и на комбо строка.
Path2 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text+'\'+cex.Text+'_'+wwDBLookupCombo1.Text+'_'+Edit2.Text+'.tif'; 
Path3 := '\\Fs\наряды;\'+cex.Text+'\'+data.Text;
if FileExists(Path3)=false then
begin
  if ForceDirectories(Path3) then
  CopyFile(Path1,Path2);
end;

делфи7. Спасибо за помощь.

[Аватар]

  s1:='SKMBT_C284e15050516380_0001.tif';
  s2:='\\fs\наряды\14\01.tif';

  s:=ExtractFileExt(s1);
  if s<>'' then s1:=Copy(s1,1,Length(s1)-Length(s));
  i:=Pos('_',ReverseString(s1));  //StrUtils
  if i>0 then begin
    s:=ExtractFileExt(s2);
    if s<>'' then s2:=Copy(s2,1,Length(s2)-Length(s));
    s2:=Format('%s(%s)%s',[s2,Copy(s1,Length(s1)-i+2,i-1),s]);
  end;

  Label1.Caption:=s2;

[Staziah2]

Сообщение от Аватар

  s1:='SKMBT_C284e15050516380_0001.tif';
  s2:='\\fs\наряды\14\01.tif';

  s:=ExtractFileExt(s1);
  if s<>'' then s1:=Copy(s1,1,Length(s1)-Length(s));
  i:=Pos('_',ReverseString(s1));  //StrUtils
  if i>0 then begin
    s:=ExtractFileExt(s2);
    if s<>'' then s2:=Copy(s2,1,Length(s2)-Length(s));
    s2:=Format('%s(%s)%s',[s2,Copy(s1,Length(s1)-i+2,i-1),s]);
  end;

  Label1.Caption:=s2;

Спасибо)