La verdad no he probado muy bien este codigo pero me supongo que puedes jugar con lo siguiente:
Código Delphi
[-]
var
x :Integer;
begin
for x := 0 to ScrollBox1.ControlCount -1 do
begin
if ScrollBox1.Controls[x] is TLabel then
TLabel(ScrollBox1.Controls[x]).Free;
end;
end;
Espero te sirva
