Передаем в процедуру значение из Edit, Luck(Edit.Text); 
  
 Procedure Luck(NUM:String); 
 begin 
 if StrToInt(NUM[1])+StrToInt(NUM[2])+StrToInt(NUM[3])=

 StrToInt(NUM[4])+StrToInt(NUM[5])+StrToInt(NUM[6])

 then 
 ShowMessage('Билет счастливый') 
 else 
 ShowMessage('Билет не счастливый'); 
 end;