Hola guillermohampp.
No sé con que BD ni que componentes estes trabajando, pero una forma sencilla de hacerlo es:
Código Delphi
[-]
procedure TForm1.btMostrarClick(Sender: TObject);
var
BM: TBookMarkStr;
begin
with tabla_cab_nom do begin
BM:= BookMark; DisableControls; First; while not Eof do
begin
ListBox1.Items.Add(FieldByName('SOL').AsString+' - '+ FieldByName('AGUA').AsString+' - '+
FieldByName('TIERRA').AsString);
Next; end;
BookMark:= BM; EnableControls; end;
end;
Saludos.