Q:  How do I fill a TMemo from a PChar?

A:  See also: How can I turn a memo's contents into a PChar?
 

procedure PutPCharIntoBlob( p: PChar; mf: TBlobField );
var
  bs: TBlobStream;
begin
  bs := TBlobStream.Create( mf, bmWrite );
  try
    bs.Write( p^, StrLen( p ) );
  finally
    bs.Free;
  end;
end;