TStringListにBeginUpdate,EndUpdateあるならそれを呼んで更新してみるとか
BeginUpdate
Heights更新
EndUpdate