Formulario tipo galeria de imagenes

[judit25]

Hola a tod@s

Les comento que pude encontrar la solucion de lo que necesitaba. Aqui dejo el codigo que actualice por si alguien se encuentra en la misma situacion que yo y necesite algo parecido.

EL codigo que cambie fue el del Procedure MyClick, lo demas se quedo igual.

Aqui esta el codigo

Código Delphi [-]

procedure TFrmConFotosAros.MyClick(Sender:TObject);
var
nomed1, nomed3 : string;
nomed, I: Integer;
Temp: TComponent;

begin
nombreedit:= (Sender as TdbImage).Name; 

nomed:= strtoint(copy(nombreedit,8,5)); 
nomed1:= 'Edit' + IntToStr(nomed); 

for I := ComponentCount - 1 downto 0 do
  begin
    Temp := Components[i];
    if (Temp is TEdit) then
      begin
        if ((Temp as TEdit).Name = nomed1) then  
          begin
            nomed3 := (Temp as TEdit).Text;
            FConAros.Query1.Close();
            FConAros.Query1.SQL.Clear;

            FConAros.Query1.SQL.Add('SELECT * FROM QAro');
            FConAros.Query1.SQL.Add(' WHERE Cod_Prod like '+quotedStr(('%'+nomed3+'%')));
            FConAros.Query1.Open();
            if FConAros.Query1Ruta.IsNull then
              begin
                FConAros.dbImage1.Visible := false;
              end
            else
              begin
                FConAros.dbImage1.Visible := true;
                         FConAros.dbImage1.Picture.LoadFromFile(FConAros.Query1Ruta.Value);
              end;
            FconAros.Show;
            close;
          end
        else
          begin
            nomed3 := '';
          end;
      end;
  end;
end;

Muchas gracias a todos por su ayuda.

Saludos