And you have successfully made it on my ignore list. Good bye
Thanks.
As Guy Macon would say.. 'Empty Hall'. I guess that is my loss.
procedure FartInSpaceSuit(Sender: TFartSender)
begin
with sender as TFartSender do
begin
//Code goes here.
end;
end;
.end