slet bestemte ord i en tekst

Hvordan fjerner jeg en bestem tekst fra en editbox?

Kode 

var
 Tmp, SearchText: string;
begin
  SearchText := 'kasper';
  Tmp := Edit1.Text;
  If Pos(SearchText, Tmp) > 0 then
   Delete(Tmp, Pos(SearchText, Tmp), Length(SearchText));
  Edit1.Text := Tmp;
end;