procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to memo1.lines.count-1 do
memo1.lines.strings[i] := copy(memo1.lines.strings[i],Pos('xxxxx', memo1.lines.strings[i])+6,10000)
+ ' xxxxx ' + copy(memo1.lines.strings[i], 1, Pos('xxxxx', memo1.lines.strings[i])-2 ...