Stringgrid의 OnDrawCell 함수

var
s : string
h : integer
begin
fillrect(arect);
s := cells[acol,arow];
h := DrawText(canvas.handle,PChar(s),length(s),ARect,dt_noprefix or dt_wordbreak or dt_left);
if h > rowheights[arow] then
begin
   rowheights[arow]:= h;
end;
end

델파이 소스인데 C++ 빌더로 변경하고 싶은데 초보라서 좀 막히네요~

도움 부탁드립니다~