[Nyctos Kasignete]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
   MemoText: string;
begin
   MemoText := StrPas(Memo1.Lines.GetText);
   MemoText := StringReplace(MemoText, 'слово', 'слово ' + Label1.Caption,
                             [rfIgnoreCase]);
   { Либо, если желаете,
   MemoText := StringReplace(MemoText, 'слово', 'слово ' + Label1.Caption,
                             [rfIgnoreCase, rfReplaceAll]); }
   Memo1.Lines.Clear;
   Memo1.Lines.SetText(@MemoText[1]);
end;