Quelltext laden und durchsuchen

[newuser01]

Hab es so gelöst oder geht es noch besser?

Delphi-Quellcode:

 Memo1.Text := IdHTTP1.Get(sURL);

 i := Pos('searchWort', Memo1.Text);

 if i > 0 then
 begin
  MessageDlg('gesuchte Wort gefunden!', mtWarning, [mbOK], 0);
 end
    else
        begin
         MessageDlg('gesuchte Wort nicht gefunden', mtWarning, [mbOK], 0);
 end;//if