procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListBox)do
begin
if (AnsiUpperCase(ListBox1.Items.Strings[Index])=ListBox1.Items.Strings[Index]) then
begin
Canvas.Font.Color:=clNavy ;
Canvas.Font.Style:=[fsBold];
Canvas.Brush.Color:=$00DDDDDD;
end
else
Canvas.Font.Color:=clBlack;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
begin
end;
end;
end;