//Aufruf
procedure TFormMain.Start;
begin
if not (Runde >= 20) then
begin
Inc(Runde);
Austeilen([Card1,Card2,Card3,Card4,Card5,Card6,Card7,Card8,
Card9,Card10,Card11,Card12,Card13,Card14,Card15,
Card16,Card17,Card18,Card19,Card20],[OpCa1,OpCa2,
OpCa3,OpCa4,OpCa5,OpCa6,OpCa7,OpCa8,OpCa9,OpCa10,
OpCa11,OpCa12,OpCa13,OpCa14,OpCa15,OpCa16,OpCa17,
OpCa18,OpCa19,OpCa20],[OpCa21,OpCa22,OpCa23,OpCa24,
OpCa25,OpCa26,OpCa27,OpCa28,OpCa29,OpCa210,OpCa211,
OpCa212,OpCa213,OpCa214,OpCa215,OpCa216,OpCa217,
OpCa218,OpCa219,OpCa220]);
end