table1.first; While table1.Eof=false do begin table1.Edit; TABLE1['BRUT']:=TABLE1['YEVMIYE']*TABLE1['CAL_GUN']; TABLE1['VUCRET']:=TABLE1['VASITA_GUN']+TABLE1['VAS_UC']; TABLE1.next; end; BRUT YERİNE KENDİ ALNALARINIZI YAZIN.