int *a,b; b=123; a=&b; b=b+1; Edit1->Text =IntToStr(*a); *a=