1:
2:
3:
4:
5:
6:

var s:String;

...
 if (Item=nil) then Exit;
 s:=Item.SubItems[SubItem];
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TFrmShowData.LvOverviewCustomDrawSubItem(
  Sender: TCustomViewControl; Item: TCustomViewItem; SubItem: Integer;
  Canvas: TCanvas; const Rect: TRect; State: TCustomDrawState;
  Stage: TCustomDrawStage; var DefaultDraw: Boolean);

var tmpstr : string;

begin

  tmpstr := Item.SubItems[SubItem];
 
  if (LvOverview.Columns[subitem].Caption = 'Status')
  then begin
    with canvas do
    begin
      Font.Color := clblue;
      FillRect(rect);
      TextOut(rect.Left,rect.Top,tmpstr);
    end;
  end;
end;					

1:

    tmpstr := Lvoverview.Items.Item[Lvoverview.Items.IndexOf(item)].SubItems.Strings[subitem-1];