[ecfisa]

Hola astrosnik.

La solucion que me has posteado si bien no da error tampoco produce cambios

En realidad no era una solución sino mas bién una prueba para identificar el problema.

Ahora intentalo de este modo:

Código Delphi [-]
implementation
uses
  unit2;
 
procedure tform5.datos(sender: TObject);
begin
  if not Assigned(Form2) then
    with TForm2.Create(nil) do
    try
      edit1.Text := adoquery1.fieldbyname('perro').Asstring;
      ShowModal;
    finally
      Free;
    end;
end;

Saludos.