Найти значения текста в файле и присвоить их переменным

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, System.StrUtils;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Memo1: TMemo;
    ListBox4: TListBox;
    ListBox5: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  StringList : Tstringlist;
  StringListTemp : Tstringlist;
  i,j,k,n,Volt,p1,p2,p3,p4 : integer;
  s,node,SN1,SN2,SV1,SV2 : AnsiString;
  voltage: real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
openDialog1.Filter := 'Текстовые файлы (*.txt)|*.txt;';
If OpenDialog1.Execute then
Stringlist :=TstringList.Create; //Создали StringList
StringList.LoadFromFile(OpenDialog1.FileName); //Открыли файл
ListBox1.Items.Assign(StringList); //Присвоили StringList значения из файла
S :=StringList.Text;  //Преобразовали StringList в строку
StringList.Delimiter := ' ';  //Задали критерий разделения на подстроки
StringList.DelimitedText := s;  //Задаем текст длz разделения из StringList
Volt:=0;
for i:=1 to length(s) do
  if s[i] = '(' then inc(Volt);
 
    for i := 0 to 43 do     //заменить 43 на количество найденных подстрок
      begin
      ListBox2.Items.Add(Stringlist[i]); //извлекаем строку указанного номера
      ListBox3.Items.Add(Stringlist[3]);
      end;
        for j := 0 to 43 do
        begin
        p1:=pos('(',stringlist[j]);
        p2:=pos(')',stringlist[j]);
        if(p1>0)and(p2>0)and(p2>p1)then
        SN1:=copy(stringlist[j],p1+1,p2-p1-1);
        ListBox4.Items.Add(SN1);
 
        p3:=pos('=',stringlist[j]);
        p4:=Length(stringlist[j])+1;
        if(p3>0)and(p4>0)and(p4>p3)then
        SV1:=copy(stringlist[j],p3+1,p4-p3-1);
        Memo1.Text := SN1+SV1;
        ListBox5.Items.Add(SV1);
        end;
 
     showmessage('Voltage Operating Points loaded: ' +inttostr(Volt));
 
end;
 
 
end.