[NumLock]

Код:

var
  p, q: PChar;
begin
  p:=GetMemory($100);
  StrPCopy(p, 'hillo warld'); // вместо ReceiveBuf
  q:=PChar(StringReplace(p, 'wa', 'wo', [rfReplaceAll, rfIgnoreCase]));
  q:=PChar(StringReplace(q, 'hi', 'he', [rfReplaceAll, rfIgnoreCase]));
  MessageBox(Handle, q, p, MB_OK); // вместо Write
  FreeMemory(p);
end;