Cómo realizar un "select" en Delphi 7, y Zeos 6.6.1

Lo que pasa es que estoy realizando mi proyecto para poder titularme, deseo terminar antes de Diciembre...
Y bueno, hasta ahorita me funciona muy bien el "insert".
La programación es orientada a objetos.
El codigo que tengo es:
_________________________________________
DE LA CLASE MENU
unit UnitFrmMenu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TFrmMenu = class(TForm)
MainMenu1: TMainMenu;
MnuRegistros: TMenuItem;
SubMnuCliente: TMenuItem;
SubMnuCompra: TMenuItem;
MnuConsultas: TMenuItem;
SubMnuClientes: TMenuItem;
SubMnuCompras: TMenuItem;
MnuAdministrador: TMenuItem;
MnuSalir: TMenuItem;
procedure SubMnuClienteClick(Sender: TObject);
procedure MnuSalirClick(Sender: TObject);
procedure SubMnuClientesClick(Sender: TObject);
private
opcion:integer;
{ Private declarations }
public
function RegresarOpcion():integer;
{ Public declarations }
end;
var
FrmMenu: TFrmMenu;
implementation
{$R *.dfm}
procedure TFrmMenu.SubMnuClienteClick(Sender: TObject);
begin
self.opcion:=1;
self.Close;
end;
function TFrmMenu.RegresarOpcion():integer;
begin
result:=self.opcion;
end;
procedure TFrmMenu.MnuSalirClick(Sender: TObject);
begin
self.opcion:=6;
self.Close;
end;
procedure TFrmMenu.SubMnuClientesClick(Sender: TObject);
begin
self.opcion:=3;
self.Close;
end;
end.
_________________________________________
DE LA CLASE APLICACION
unit UnitAplicacion;
interface
uses
UnitInterfaz,UnitCliente,UnitDBMS;
type
Aplicacion=class
private
MiInterfaz:Interfaz;
MiCliente:Cliente;
MiDBMS:DBMS;
OpcionMenu:integer;
//Bandera:boolean;
public
procedure correr();
end;
implementation
procedure Aplicacion.correr();
begin
MiInterfaz:=Interfaz.Create;
MiCliente:=Cliente.Create;
MiDBMS:=DBMS.Create;
while (self.OpcionMenu<>6) do
begin
MiInterfaz.MostrarMenu();
self.OpcionMenu:=MiInterfaz.RegresarOpcion();
case self.OpcionMenu of
3: begin
MiInterfaz.MostrarConsultaClientes
(MiDBMS.RegresarConsultaClientes1());
MiDBMS.ConectarDB();
end;
end; {case}
end; {while}
MiInterfaz.Destroy;
MiCliente.Destroy;
MiDBMS.Destroy;
end;
end.
_________________________________________
DE LA CLASE CLIENTE
unit UnitCliente;
interface
TYPE
Cliente=class
private
ClaveCliente:string;
ConfirmarClaveCliente:string;
NombreCliente:string;
TelefonoCliente:string;
PaisCliente:string;
EstadoCliente:string;
CiudadCliente:string;
DomicilioCliente:string;
ColoniaCliente:string;
CodigoPostalCliente:string;
TarjetaCliente:string;
CuentaCliente:string;
public
procedure AsignarClaveCliente(c:string);
procedure AsignarConfirmarClaveCliente(cc:string);
procedure AsignarNombreCliente(n:string);
procedure AsignarTelefonoCliente(te:string);
procedure AsignarPaisCliente(p:string);
procedure AsignarEstadoCliente(e:string);
procedure AsignarCiudadCliente(ci:string);
procedure AsignarDomicilioCliente(d:string);
procedure AsignarColoniaCliente(co:string);
procedure AsignarCodigoPostalCliente(copo:string);
procedure AsignarTarjetaCliente(ta:string);
procedure AsignarCuentaCliente(cu:string);
function RegresarClaveCliente():string;
function RegresarConfirmarClaveCliente():string;
function RegresarNombreCliente():string;
function RegresarTelefonoCliente():string;
function RegresarPaisCliente():string;
function RegresarEstadoCliente():string;
function RegresarCiudadCliente():string;
function RegresarDomicilioCliente():string;
function RegresarColoniaCliente():string;
function RegresarCodigoPostalCliente():string;
function RegresarTarjetaCliente():string;
function RegresarCuentaCliente():string;
end;
implementation
//Asignar Datos
procedure Cliente.AsignarClaveCliente(c:string);
begin
self.ClaveCliente:=c;
end;
procedure Cliente.AsignarConfirmarClaveCliente(cc:string);
begin
self.ConfirmarClaveCliente:=cc;
end;
procedure Cliente.AsignarNombreCliente(n:string);
begin
self.NombreCliente:=n;
end;
procedure Cliente.AsignarTelefonoCliente(te:string);
begin
self.TelefonoCliente:=te;
end;
procedure Cliente.AsignarPaisCliente(p:string);
begin
self.PaisCliente:=p;
end;
procedure Cliente.AsignarEstadoCliente(e:string);
begin
self.EstadoCliente:=e;
end;
procedure Cliente.AsignarCiudadCliente(ci:string);
begin
self.CiudadCliente:=ci;
end;
procedure Cliente.AsignarDomicilioCliente(d:string);
begin
self.DomicilioCliente:=d;
end;
procedure Cliente.AsignarColoniaCliente(co:string);
begin;
self.ColoniaCliente:=co;
end;
procedure Cliente.AsignarCodigoPostalCliente(copo:string);
begin
self.CodigoPostalCliente:=copo;
end;
procedure Cliente.AsignarTarjetaCliente(ta:string);
begin
self.TarjetaCliente:=ta;
end;
procedure Cliente.AsignarCuentaCliente(cu:string);
begin
self.CuentaCliente:=cu;
end;
// Regresar Datos
function Cliente.RegresarClaveCliente():string;
begin
result:=self.ClaveCliente;
end;
function Cliente.RegresarConfirmarClaveCliente():string;
begin
result:=self.ConfirmarClaveCliente;
end;
function Cliente.RegresarNombreCliente():string;
begin
result:=self.NombreCliente;
end;
function Cliente.RegresarTelefonoCliente():string;
begin
result:=self.TelefonoCliente;
end;
function Cliente.RegresarPaisCliente():string;
begin
result:=self.PaisCliente;
end;
function Cliente.RegresarEstadoCliente():string;
begin
result:=self.EstadoCliente;
end;
function Cliente.RegresarCiudadCliente():string;
begin
result:=self.CiudadCliente;
end;
function Cliente.RegresarDomicilioCliente():string;
begin
result:=self.DomicilioCliente;
end;
function Cliente.RegresarColoniaCliente():string;
begin
result:=self.ColoniaCliente;
end;
function Cliente.RegresarCodigoPostalCliente():string;
begin
result:=self.CodigoPostalCliente;
end;
function Cliente.RegresarTarjetaCliente():string;
begin
result:=self.TarjetaCliente;
end;
function Cliente.RegresarCuentaCliente():string;
begin
result:=self.CuentaCliente;
...