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

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;