redt1->Text = "sdfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff";
tagSCROLLINFO sInfo;
redt1->Height =1;
redt1->ScrollBars = ssVertical;
sInfo.cbSize = sizeof(TScrollInfo);
sInfo.fMask = SIF_RANGE;
GetScrollInfo(redt1->Handle, SB_VERT, &sInfo);
redt1->Height = sInfo.nMax + redt1->Font->Size;
tagSCROLLINFO sInfo;
redt1->Height =1;
redt1->ScrollBars = ssVertical;
sInfo.cbSize = sizeof(TScrollInfo);
sInfo.fMask = SIF_RANGE;
GetScrollInfo(redt1->Handle, SB_VERT, &sInfo);
redt1->Height = sInfo.nMax + redt1->Font->Size;