замена аргумента функции

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure SuperPos;             //Подстановка
Var
  i,j,k:Integer;
  s,p,a,r:String;
begin
  With Form1 Do
  Begin
  r:='';
  For i:=ListBox3.Items.Count-1 DownTo 0  Do
  Begin
    s:=ListBox3.Items.Strings[i];      //Часть сложной функции
    j:=Pos('(',s);                     //Место аргумента
    a:=s[j+1];                         //Сам аргумент
 
    k:=Pos('№',s);                     //Место номера функции
    k:=StrToInt(Copy(s,k+1,1000))-1;   //Сам номер
    p:=ListBox1.Items.Strings[k];      //Оригинал
 
 
    If r='' Then
      r:=Copy(p,1,j)+a+Copy(p,j+1,1000)//Вставка аргумента
    Else
      r:=Copy(p,1,j)+r+Copy(p,j+1,1000)//Вставка аргумента
  End;
  Edit2.Text:=r;
  End;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  With ListBox1.Items Do
  Begin
    Clear;
    Add('sin()');
    Add('cos()');
    Add('tg()');
    Add('ctg()');
 
  End;
 
  With ListBox2.Items Do
  Begin
    Clear;
    Add('cos()');
    Add('[-sin()]');
    Add('1/cos()^2');
    Add('[-1/sin()^2]');
  End;
  ListBox2.Visible:=False;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
Var
  i,j:Integer;
  s,p:String;
begin
  i:=ListBox1.ItemIndex;
  ListBox3.Items.Add(ListBox1.Items.Strings[i]);
  ListBox3.Repaint;
  s:=InputBox('Ввод аргумента','Введите новый аргумент','');
  p:=ListBox1.Items.Strings[i];
  j:=Pos('(',p);
  p:=Copy(p,1,j)+s+Copy(p,j+1,1000)+'  №'+IntToStr(i+1);
  ListBox3.Items.Strings[ListBox3.Items.Count-1]:=p;
  SuperPos;                        //Вывод результата
end;
 
procedure TForm1.ListBox3Click(Sender: TObject);
Var
  i:Integer;
begin
  i:=ListBox1.ItemIndex;
  ListBox3.Items.Delete(i);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  i,j:Integer;
  s,p,a,r:String;
begin
  r:='';
  For i:=0 To ListBox3.Items.Count-1 Do
  Begin
    s:=ListBox3.Items.Strings[i];      //Часть сложной функции
    j:=Pos('(',s);                     //Место аргумента
    a:=s[j+1];                         //Сам аргумент
 
    j:=Pos('№',s);                     //Место номера функции
    j:=StrToInt(Copy(s,j+1,1000))-1;   //Сам номер
    p:=ListBox2.Items.Strings[j];      //Производная
 
 
    j:=Pos('(',p);                     //Место аргумента производной
    p:=Copy(p,1,j)+a+Copy(p,j+1,1000); //Вставка аргумент
    r:=r+'*'+p;
  End;
  Edit1.Text:=Copy(r,2,1000);
end;
 
end.

delete(s,5,6);//удалить из строки 6 символов, начиная с пятого
insert(s1,s,5);//вставить подстроку в позицию 5

s:=Edit1.Text;//sin(x)
s1:=Edit2.Text;//cos(x)
p:=pos('(',s);
delete(s,p+1,pos(')',s)-p-1);
insert(s1,s,p+1);
Edit1.Text:=s;