[malay]

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 a: integer;
 begin
  for a:=0 to Memo1.Lines.Count do
  Memo1.Lines[a]:=StringReplace(Memo1.Lines[a], 'html', 'xml');//курсор здесь
 end;
 end;
 

.
вот так?