삭제를 위한 암호를 넣어 주세요

인터넷 검색하다 찾았습니다. 알고나니 너무 쉽더군요
procedure TForm1.RichEdit1ResizeRequest(Sender: TObject; Rect: TRect);
begin
     RichEdit1.Height := Rect.Height;
end;

저 이벤트에 저거 한줄만 넣으면 됩니다. 
2017-10-20 오후 1:41:43