[Rjkzy]

в принципе всё то же самое, только с "выдёргиванием" текста. хотя я если честно не понял, зачем его выдёргивать нужно, когда мы его же и ищём

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
c:Cardinal;
begin

c:=pos(Edit1.Text,Memo1.Text);
if c<>0 then
  begin
  Label1.Font.Color:=clBlue;
  Label1.Caption:=Copy(Memo1.Text,c,length(Edit1.Text));
  end
else
  begin
  Label1.Font.Color:=clRed;
  Label1.Caption:='Текст не найден';
  end;
end;