[YVitaliy]

Код:

var err,err1,i:integer;
Box1: array [1..9] of Integer;
b:Boolean;
begin
..........................
 err1:=0;
 for i:=1 to 9 do begin
   val((FindComponent('Edit' + IntToStr(i)) as TEdit).Text,Box1[i],err);
   err1:=err1+err;
 end;
 if err1=0 then begin
   b:=true;
     for i:=1 to 9 do
       b:=(b) and (Box1[i]=Box[i]);
   if b then  begin
       Timer2.Enabled := False;
       MessageBeep(mb_IconAsterisk);
       ShowMessage('Ãîòîâî!!!');
   end;
end;



end;