Q:  How do I use a case statement to determine which object calls the procedure?

A:  Use the object's TAG property.

case (sender as tButton).tag of
  0:  blah;
  1:  blah_blah;
end;