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

S>неужели такой глупый вопрос что никто не хочет отвечать? =(

Нет, ну почему же

// тут самый простой обработчик (для 3 строк)
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
 case Index of
  0: Height:=20;
  1: Height:=40;
  2: Height:=60;
 end;
end;
// тут  по кнопке меняем высоту элементов (принудительный вызов MeasureItem и т.п.)
procedure TForm1.Button2Click(Sender: TObject);
var WP:TWMPaint;
begin
 WP.Msg:=WM_PAINT;
 WP.DC:=GetDC(ListBox1.Handle);
 WP.Unused:=0;
 WP.Result:=0;
 ListBox1.Dispatch(WP);
end;