Hola de nuevo ecfisa muchas gracias por tu ayuda, el ejemplo tuyo no puedo descargarlo segun el servidor no tengo permisos suficientes aunque este logueado voy a intentar explicarme mejor ruego disculpes si no he sabido hacerme entender.
Mi aplicacion lanza un formulario form4 que es el principal desde ahi con un bitbnt abro el form2 con edits para rellenar mediante el siguiente codigo
Código Delphi
[-]
procedure TForm4.BitBtn1Click(Sender: TObject);
var
varform:tform2;
begin
varform:=tFORM2.Create(form4);
try
varform.Showmodal;
finally
varform.Free;
end;
Desde el form2 con otro bitbtn abro el form5 en modal tambien con este codigo
Código Delphi
[-]
procedure TForm2.BitBtn1Click(Sender: TObject);
var
varforms:tform5;
begin
varforms:=tFORM5.Create(self);
try
varforms.Showmodal;
finally
varforms.Free;
end;
En el form5 tengo un bdgrid y ejecuto un query al que asocion el codigo para que rellene los edits del form2.
Si pongo el codigo que me mandaste
Código Delphi
[-]
if not Assigned(Form2) then
with TForm2.Create(nil) do
try
form2.edit2.Text :=form5.adoquery1.fieldbyname('perro').Asstring;
ShowModal;
finally
Free;
end;
Sigue dando el mismo error access violation at address 004bfd43 in module projrct.exe. read of address 00000370.
Espero haber explicado bien el escenario y los errores que produce gracias otra vez por tu esfuerzo.