[ART]

Код:

function tform1.getlabel(tag: integer): tlabel;
Var
 i: integer;
begin
 for i := 0 to componentcount - 1 do
  if components[i] is tlabel then
  *If tlabel(components[i]).tag = tag then begin
*   result := tlabel(components[i]);
    exit;
 End;
result := nil;
End;