Принцип:
Procedure FloodICQ
begin
//codes
end;

Procedure FloodButton.OnClick
begin
//codes
CreateThread(0,0,@FloodICQ,0);
end;

какбе такая система...