Здравствуйте, silentroach, Вы писали:

Извиняюсь за прошлый пост — этот код должон работать корректно.

procedure TForm1.Button3Click(Sender: TObject);
var i,H:integer;
begin
 for i:=ListBox1.TopIndex to Pred(ListBox1.Items.Count) do
   begin
     Self.ListBox1MeasureItem(nil,i,H); // тут мы высоту элементов как-то считаем
     SendMessage(ListBox1.Handle, LB_SETITEMHEIGHT,I,H); // тут мы высоту элементов ставим
   end;
 ListBox1.Repaint;  // а тут - перерисовываемся
end;