Pero si yo creo desde la form27 a la form26 es decir la form27 es padre de la 26
Código Delphi
[-] procedure TForm27.DBGrid1CellClick(Column: TColumn);
var
varform26 : TForm26;
begin
if ((Column.FieldName = 'CODIGO_COMP') or (column.FieldName = 'NOMBRE_COMP')) then
begin
var1 := IBDataset1.FindField('CODIGO_COMP').AsString;
label1.Caption := var1;
varform26 := Tform26.create(self);
try
varform26.Show;
except
varform26.free;
end;
end;
dbgrid1.SelectedIndex:=0;
end;