Ayuda Con Consulta

[ContraVeneno]

¬¬ ( <--- nos hace falta una carita con esta expresión )

Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then begin
  qryCliente.Close;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  qryCliente.Open;
  if not qryCliente.IsEmpty then begin
    DBText1.Caption:=qryClientee.fieldByName("nombre_cliente").AsString+' '+qryCliente.fieldByName("apellidos_cliente").AsString;
    Peliculas.SetFocus; // esto era todo lo que necesitas para cambiar a películas
  else 
    //acciones cuando no encuentras al cliente
  end; //if cliente is not empty
end; //procedure