[[ElKurgan]]

Prueba con algo parecido a esto (suponiendo que el formulario se llame Form1, el ListView se llame ListView1 y la Query se llame Query1, y el ListView esté en modo vsReport):

 
procedure TForm1.CargarListView;
var
  AItem: TListItem;
begin
  ListView1.Clear;
  Query1.First;
  While not Query1.Eof do
  begin
    AItem := ListView1.Items.Add;
    AItem.Caption := Query1.Fields[0].AsString;
    AItem.SubItems.Add(Query1.Fields[1].AsString);
    AItem.SubItems.Add(Query1.Fields[2].AsString);
    Query1.Next
  end;
end;

Espero que te sirva.
Un saludo