Creando Consulta de alquiler

[nemesio]

Para buscar el Cliente podrías hacer algo parecido:

Código Delphi [-]
AdoQueryCliente.Close;
AdoQueryCliente.SQL.Add(' SELECT codcliente, Nombre, Apellido FROM CLIENTES ');
AdoQueryCliente.SQL.Add('WHERE CodCliente: Codigo');
AdoQueryCliente.ParamByname('Codigo').Value:=EditCodCliente.Text;
AdoQueryCliente.Open;
if not AdoqueryCliente.IsEmpty then
   LabelCliente.Caption:=AdoQueryClienteNombre.Value+' '+AdoQueryClienteApellido.Value;

Bueno con esa idea tienes para hacer las demás consultas. Suerte.