JHeavy,
Код:
procedure ComponentsListOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
begin
if Index = -1 then DescRTV.Text := CustomMessage('ComponentsDescription' + IntToStr(Index+1)) else
DescRTV.Text := CustomMessage('Desc') + #13#10 + ' ' + CustomMessage('ComponentsDescription' + IntToStr(Index+1));
end;
#13#10 - переход на новую строку
' ' - отступ. Неплохо ведь начать описание с абзаца
