Control in TDBGrid-Spalte zeichnen

[Stevie]

Keiner hilft mir!
Also hab ich mal selber etwas rumgebastelt:

Delphi-Quellcode:

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.FieldName = 'Fortschritt') and
   not ClientDataSet.FieldByName('Thread').IsNull then
  begin
    ProgressBar.Max := ClientDataSet.FieldValues['Size'];
    ProgressBar.Position := ClientDataSet.FieldValues['Fortschritt'];
    ProgressBar.BoundsRect := Rect;
    ProgressBar.PaintTo(DBGrid.Canvas, Succ(Rect.Left), Succ(Rect.Top));
  end;
end;