<div>
Almost forgot. I need ALL the paragraphs that this word appears in, not just the first. &nbsp;Thanks.
</div>


<div>
procedure TForm1.Memo1Change(Sender:<wbr /> TObject);<br />
begin<br />
Memo2.Text:=Memo1.Text;<br />
end;
</div>


<div>
<div class="content wysiwyg-content">
When a certain word appears in the text of Memo1, I want just the paragraph to be copied to Memo2. &nbsp;I am using Delphi 6. &nbsp;<br />
<br />
I am giving 500 points as this code is required urgently. Many thanks for your help.
</div>
</div>


When a certain word appears in the text of Memo1, I want just the paragraph to be copied to Memo2.  I am using Delphi 6.  

I am giving 500 points as this code is required urgently. Many thanks for your help.

Almost forgot. I need ALL the paragraphs that this word appears in, not just the first.  Thanks.

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo2.Text:=Memo1.Text;
end;

Coping the paragraph that a certain word appears in (500 points)

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.