1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure welchstapel22(stapel2 : array of string; transfer : array of string);
var i,j : integer;
begin
for i := 1 to 15 do begin
 for j := 1 to 14 do begin
     if transfer[j] = stapel2[i] then begin
       tbitbtn(form1.findcomponent('bitbtn'+inttostr(i+14))).visible := false;
       stapel2[i] := '';
                                      end;
                     end;
                    end;
end;					

1:

welchstapel22(stapel2,transfer);