SendMessage(Memo1.Handle, EM_GETRECT, 0, Longint(@R));
でよさそう