este es el codigo que utilizo para llamar el dato de la otra forma
tbodtodt = es el nombre de la forma 1
descripcion es la forma 2
SIGODT := tbodtodt.value;
pac := tbodtodt.value;
sw:=0;
showmessage(inttostr(pac)) ;
showmessage(floattostr(sigodt));
descripcion.DBEdit1.Text := (inttostr(pac));
|