Разделение строки (Эдит), на несколько(Эдит2-4)

procedure TForm1.Button1Click(Sender: TObject);
var
t:tstringlist;
i:integer;
begin
 t:=tstringlist.Create;
 t.Text:=StringReplace(edit1.Text, ',',#13#10,[rfReplaceAll, rfIgnoreCase]);
 // если edit1.text содержит строку текст1,(пробел)Текст2,(пробел)текст3
 // то теперь
 // t[0]=Текст1
 // t[1]=Текст2
 //t[2]=Текст3
 // теперь можно просто присвоить
 edit2.Text:=trim(t[0]);
 edit3.Text:=trim(t[1]);
 edit4.Text:=trim(t[2]);
 // если такие компоненты есть на форме
 // если нет то создать их динамически в цикле
 // тоесть так
 for I := 0 to t.Count-1 do begin
                             // создание edit
                             end;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t:tstringlist;
i:integer;
m:array[0..10] of Tedit;
begin
 t:=tstringlist.Create;
 t.Text:=StringReplace(edit1.Text, ',',#13#10,[rfReplaceAll, rfIgnoreCase]);
 //на форме есть edit1, новые edit создаем в зависимости от его располажения и под ним
 // создаем динамически в цикле необходимые edit
 for I := 0 to t.Count-1 do begin
                             // создание edit
                             m[i]:=Tedit.Create(self);
                             m[i].Parent:=form1;
                            m[i].Left:=edit1.Left;
                            m[i].Top:=edit1.Top+(edit1.Height*(i+1));
                            m[i].Width:=edit1.Width;
                            m[i].Text:=t[i];
                             end;
 
end;

var
s,p:string;
begin
 s:=trim(s);
 p:=copy(s,LastDelimiter(' ',s),length(s));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t:tstringlist;
i:integer;
m:array[0..10] of Tedit;
begin
// проверка и удаление динамически созданных edit
 for i := Form1.ComponentCount - 1 downto 0 do
  begin
    if Form1.Components[i] is TEdit then begin
     if (Form1.Components[i] as TEdit).Tag=1 then  (Form1.Components[i] as TEdit).Free;
                                          end;
  end;
 t:=tstringlist.Create;
 t.Text:=StringReplace(edit1.Text, ',',#13#10,[rfReplaceAll, rfIgnoreCase]);
 //на форме есть edit1, новые edit создаем в зависимости от его располажения и под ним
 // создаем динамически в цикле необходимые edit
 for I := 0 to t.Count-1 do begin
                             // создание edit
                             m[i]:=Tedit.Create(self);
                             m[i].Parent:=Form1;
                            m[i].Left:=edit1.Left;
                            m[i].Top:=edit1.Top+(edit1.Height*(i+1));
                            m[i].Width:=edit1.Width;
                            m[i].Text:=t[i];
                            // по этому тегу будем определять, что edit был создан динамически
                            m[i].Tag:=1;
                             end;
 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
opendialog1.Execute;
edit2.Text:=opendialog1.FileName;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
     s:string;
begin
memo1.Lines.LoadFromFile(edit2.Text);
for i:=0 to (memo1.lines.count-1) do
begin
 if pos (edit1.Text,memo1.Lines[i])<>0 then
 s:=s+' '+inttostr(i+1);
end;
showmessage('Данный текст найден в строках: '+s);
end;

var
  F: TSearchRec;
  Path: string;
  Attr: Integer;
begin
  {Искать все файлы в заданной директории с расширение .wav}
  Path := 'e:\*.txt';
  {которые имеют атрибуты "Только для чтения" и "Архивный"}
  Attr := faReadOnly + faArchive;
 
  FindFirst(Path, Attr, F);
 
  {Если хотя бы один файл найден, то продолжить поиск}
  if F.name <> '' then
  begin
    ListBox1.Items.Add(F.name); {Добавление в TListBox имени найденного файла}
    while FindNext(F) = 0 do
      ListBox1.Items.Add(F.name);
  end;
  FindClose(F);
end.

var
s,p:string;
begin
 s:=trim(s);
 p:=copy(s,LastDelimiter(' ',s),length(s));
end;

function FindFiles(path, ext: string):tstringlist;
Var SR : TSearchRec;
    Res : Integer;
    t:tstringlist;
begin
t:=tstringlist.Create;
  Res := FindFirst(path+ext, faAnyFile, SR);
  while Res = 0 do
  begin
  t.Add(path+Sr.Name);
   Res := FindNext(SR);
  end;
  FindClose(SR);
  result:=t;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t,tm:tstringlist;
s,ps:ansistring;
i,j,x:integer;
begin
ps:='тег'; // то что ищем
t:=tstringlist.Create;
// получаем список файлов
 t:=findfiles('C:\', '*.txt');
 tm:=tstringlist.Create; x:=-1;
 // поиск в файлах
      for I := 0 to t.Count-1 do begin
                                tm.LoadFromFile(t[i]);
                                  // проверяем нахождение строки в файле
                                for j := 0 to tm.Count-1 do begin
                                              //(с учетом регистра)
                                              if pos(ps,tm[j])>0 then // строка найдена
                                                begin
                                          // здесь выполняем необходимые действия
                                         // tm.Text содержит текст файла
                                         // tm[0] первая строка файла и тд.
                                         // t[i] содержит путь к файлу
                                         // t[j] содержит строку с найденной подстрокой
                                         // например выводим в memo1, строку с найденной подстрокой
                                         memo1.Lines.Add(tm[j]);
                                         // если ищем только одно совпадение в файле, то выходим из цикла поиска в этом файле
                                         break;
                                                end;
                                                             end;
                                 end;
 tm.Free;t.Free;
end;