できました（;´Д｀）

const AnsiString CR = "\x0d";
char buf1[256], *pbuf, buf2[256];

strcpy(buf1, "ABCDEFG");
pbuf = buf1;

TVarRec v[] = { (Pointer)buf1, (Pointer)pbuf };

Memo1->Text = Format("buf1のアドレス = %p" + CR +
"pbufから見た文字列の先頭アドレス = %p", v, ARRAYSIZE(v) - 1 );