uses Form1; ... procedure tform3.button1click... ... begin Form1.glcube.ololo1 := strtoint(edit1.text); ... Form1.glcube.ololo3 := strtoint(edit3.text);