var
 P: PChar;
 S: TMemoryStream;
 Size: LongInt;
begin
 S := TMemoryStream.Create;
 MyMemoField.SaveToStream(S);
 Size := S.Position;
 GetMem(P, Size + 1);
 S.Position := 0;
 S.Read(P^, Size);
 P[Size] := #0;
 S.Free;
 { используем текст в PChar }
 FreeMem(P, Size + 1);
end;