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.