How to cook a turkey?

...and a total change of topic... can anyone out there suggest something politely American to do with a turkey as my wife has some fantasy of cooking a Mid-November-UK-Style-ThanksGiving-Nosh.
Seriously, any recipies.....
rt izza:

Sounds good enough to eat! izza:

As much as I enjoy cooking I'm not doing this one, so I shall it on to Herself and see if she requireth further destructions..
rt

That's brilliant award yourself a gold star.

I shall pass your program onto the chefette, although I wonder if it will compile in our Basic oven
rt

Cooking with Delphi - Part 1.



Since I'm a talented Delphi programmer, and a talented cook, I'm combining the two to show you how to cook a turkey dinner in Delphi:



Here are the global variables:

var
   Kitchen : TKitchen;
   StoveOven : TStoveOven;
   TurkeyStuffing : TStuffing;
   Turkey : TTurkey;
   SideDish1 : TSweetPotatoes;
   SideDish2 : TCranberrySauce;
   SideDish3 : TButterRolls;
   SideDish4 : TGreenVegatable;
   Dressing1 : TThickBrownGravy;
   Dressing2 : TMeltedButter;
   Dessert1 : TPumpkinPie;
   BottleOfMerlotInCupboard : TGoodWine;
   BottleOfWhiteZinfandel : TCaliforniaWine;
   Helper : THusband;
   Helper_Motivator : TPintOfGuinness;
   Cook : TWifeWhoWillKindlySlaveAwayForFourHoursOnThisMeal;

Cooking with Delphi - Part 2.



The first thing you have to do is to prepare the stuffing for the turkey:

procedure PrepareTheStuffing;
var
   MixingBowl : TFourQuartBowl;
   BakingDish : T13inchX9inchCasserole;
begin
   TurkeyStuffing.Ingredients.[1] := '1 1/2 loaves day-old French bread';
   if (not TimeToCutUpBread) then
     TurkeyStuffing.Ingredients.[1] := '1 box stuffing mix';
   TurkeyStuffing.Ingredients.[2] := '1/4 Cup Butter';
   TurkeyStuffing.Ingredients.[3] := '2 onions';
   TurkeyStuffing.Ingredients.[4] := '2 apples';
   TurkeyStuffing.Ingredients.[5] := '1 1/2 cup celery';
   TurkeyStuffing.Ingredients.[6] := '1 can chicken broth soup';
   if (not StoreHasChickenBroth) then
     TurkeyStuffing.Ingredients.[6] := '1 cup prepared soup from chicken boullion';
   TurkeyStuffing.Ingredients.[7] := '1 tablespoon spice - sage';
   TurkeyStuffing.Ingredients.[8] := '1 tablespoon spice - rosemary';
   // Preparation instructions
   Cook.Chop('stale bread', '1/2 inch cubes');
   Cook.Chop('onions');
   Cook.Chop('celery');
   Cook.Chop('apples');
   StoveOven.Pan.Saute('butter',hMediumHeat);
   StoveOven.Pan.WhileHeatingAction := cStirFrequently;
   StoveOven.Pan.Add(SautePan,['onions']);
   StoveOven.Pan.CookMinutes(5);
   StoveOven.Pan.Add(SautePan,['celery','apples']);
   StoveOven.Pan.CookMinutes(5);
   MixingBowl.Add(['bread cubes',Pan.Contents]) + StirWell;
   MixingBowl.Add(['chicken broth']) + StirWell;
   MixingBowl.Add(['sage','rosemary']) + StirWell;
   // Cooking instructions
   BakingDish.Add(MixingBowl.Contents);
   BakingDish.OnAfterCookingEvent := SetAsideToCool(tTenMinutes);
   StoveOven.Bake(BakingDish,tmSixtyMinutes);
end;

Cooking with Delphi - Part 3



Next, you need to prepare the turkey:

procedure PrepareTheTurkey;
var
begin
   Turkey.RemoveGibletsAndNeck;
   Turkey.RinseThoroughly;
   Turkey.Inside.RinseThoroughly;
   Turkey.Skin.Brush('butter' or 'cooking oil');
   Turkey.Skin.Sprinkle(Spice('sage') + Spice('rosemary'),sLightly);
   if (TurkeyStuffing.isCooled) then
     Turkey.Cavity.Stuff(TurkeyStuffing);
   if (HasMeatThermometer(Cook)) then
     Turkey.Insert(MeatThermometer,pInStuffing);
   Cook.WashHands(Thoroughly!);
end;

Cooking with Delphi - Part 4



There are various charts to help you determine how long to cook the turkey, but here's a general guideline:

function ApproximateMinutesCookingTime : TMinutes;
var
begin
   if (Turkey.WeightInPounds < 4) then
     MinutesCookingTime := Turkey.WeightInPounds) * 2
   else
   if (Turkey.WeightInPounds < 8) then
     MinutesCookingTime := Turkey.WeightInPounds) * 3
   else
   if (Turkey.WeightInPounds < 12) then
     MinutesCookingTime := Turkey.WeightInPounds) * 4
   else
   if (Turkey.WeightInPounds < 16) then
     MinutesCookingTime := Turkey.WeightInPounds) * 5
   else
   if (Turkey.WeightInPounds < 20) then
     MinutesCookingTime := Turkey.WeightInPounds) * 6
   else
   if (Turkey.WeightInPounds < 24) then
     MinutesCookingTime := Turkey.WeightInPounds) * 7
   else
   if (Turkey.WeightInPounds < 28) then
     MinutesCookingTime := Turkey.WeightInPounds) * 8
   else
   if (Turkey.WeightInPounds < 32) then
     MinutesCookingTime := Turkey.WeightInPounds) * 9
   else
     ShowMessage('You need a much bigger oven!');
end;

Cooking with Delphi - Part 5



Finally, bringing it all together...

procedure TKitchen.MakeTurkeyDinner(numberOfGuests : integer);
var
   BakingPan : TLargeSturdyBakingPan;
   CookingTime : TCookingTime;
begin
   Helper.Name := 'RT';
   OnInitializeEvent := SendToThePub(Helper, Helper_Motivator);

   OnBeforePrepareEvent := StoveOven.SetOvenTemperature(350_Degrees);

   OnAfterPrepareEvent := PrepareSideDishes;

   Turkey.WeightInPounds := 4 + (numberOfGuests * 2);
   Turkey.OnAfterCookedEvent := SetTable;

   Helper.OnAfterDinnerEvent := CleanDishes(Helper_Motivator);

   Cook.OnAfterDinnerEvent := TakeLongNap;

   BakingPan.Depth.Min := miTwoInches;
   BakingPan.Width.Min := Turkey.Circumference + miOneInch;
   PrepareTheStuffing;
   PrepareTheTurkey;

   CookingTime.Duration := tTwoHours + ApproximateMinutesCookingTime;

   BakingPan.Place(Turkey,pCenter);
   BakingPan.Cover('Aluminum Foil');
   StoveOven.Bake(BakingPan,CookingTime.Duration);
   Cook.PrepareSideDishes;
   if Available(BottleOfMerlotInCupboard) then
     Cook.Fetch(BottleOfMerlotInCupboard);
   while (Turkey.TimeCooked < CookingTime.Duration)
     or (MeatThermometer < 165_Degrees_Farenheit) do
   begin
     if (TimeSinceLastChecked >= tOneHour) then
     begin
       StoveOven.Open;
       BakingPan.UnCover;
       Turkey.Skin.Baste('Juices From Pan');
       BakingPan.ReCover;
       StoveOven.Close;
     end;
     if (not BottleOfMerlotInCupboard.Empty) then
       BottleOfMerlotInCupboard.Drink('glass');
   end;
   Cook.ServeFood(VarArrayOf[
       Turkey,
       TurkeyStuffing.Remainder,
       SideDish1,
       SideDish2,
       SideDish3,
       SideDish4,
       Dressing1,
       Dressing2,
       BottleOfWhiteZinfandel]);
   Helper.Carve(Turkey);
   Cook.SitDownAndEat;
   Helper.SitDownAndEat;
   Cook.ServeFood([Dessert1]);
   Cook.TakeLongNap;
   Helper.CleanUpKitchen;
end;

Well, RT did ask for an American recipe...



My reference to degrees in Farenheit should have been the give-a-way...

Okay, perhaps I forgot the initialization section of the unit...



By including the seldom-used SysKitchenUtils unit, and assigning the following properties:

ShortCookingWeightFormat := wUSPounds;
ShortCookingTemparatureFormat := ctUSFarenheit;