TListView Ausgabe in einzelnem Item zentrieren

[HoRo]

Hallo,
die Text ausgabe mache ich mit ListView:

erstellen:

Delphi-Quellcode:

for j := 1 to LineNbr do begin
  NewItem := Items.Add;
  NewItem.Caption := 'Text';
  for i := 1 to ColumnNbr do begin
    NewItem.SubItems.Add('Text');
  end;
end;    // for

verändern:

Delphi-Quellcode:

for j := 1 to LineNbr do begin
  for i := 1 to ColumnNbr do begin
    if Upd then begin
      Items.BeginUpdate ;
      if i=1 then Items.Item[j-1].Caption := UpdateTxt
      else Items.Item[j-1].subitems[i-1] := UpdateTxt;
      Items.EndUpdate;
    end;
  end;   
end;

vielleicht gibt es hierfür auch eine Lösung, ich werde es aber auch mal mit DrawText versuchen.