var
i : integer;
aListItem: TListItem;
begin
with DBGrid1.DataSource.DataSet do
begin
First;
while not Eof do
begin
aListItem :=ListView1.Items.Add;
aListItem.Caption := FieldByName('ID').AsVariant;
aListItem.SubItems.Add ( FieldByName('FiledName').asstring );
aListItem.SubItems.Add ( FieldByName('FiledName').asstring);
Next;
end;
end;