Memo --> bestimmtes Wort löschen

[Chrissi91]

Ich möchte gerne in einer If - Abfrage abfragen, ob ein bestimmtes Wort enthalten, wenn ja soll er dieses löschen.

Wie folgt wollte ich vorgehen, bis ich irgendwann stutzte und mir die Ideen ausgingen

Delphi-Quellcode:

for i:=1 to length(memo1.text) do
 begin
  if copy(memo1.Text,i,5) <> 'Hallo' then
   begin
    //Hier bin ich stehen geblieben ... Wie lösche ich nun das Wort?
   end;
 end;

Noch etwas: Im Memotext stehen die als "Text" also zum Beispiel:

Hallo ... bla bla ... jkdfdjif ... Hallo ... blabla ... fneijf ... Bla Bla ...

Dann soll das rauskommen und ins selbe Memo übertragen werde (also ersetzt werden )

... bla bla ... jkdfdjif ... ... blabla ... fneijf ... Bla Bla ...

Hoffentlich kann mir jemand helfen

Danke schon im Vorraus!