Mostrar

[ecfisa]

Hola.

Con una consulta, al inicio del form, podría ser:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
begin
  Query.SQL.Clear;
  Query.SQL.Add('SELECT SOL, AGUA TIERRA FROM CAB_NOM');
  Query.Open;
  while not Query.Eof do
  begin
    ListBox1.Items.Add(Query.FieldByName('SOL').AsString +' - '+
                       Query.FieldByName('AGUA').AsString+' - '+
                       Query.FieldByName('TIERRA').AsString;
    Query.Next;
  end;
  Query.Close;
end;

Saludos.