OnRgnChange example for Delphi

procedure TForm1.Lead1RgnChange(Sender: TObject);
var
{Declare a local variable. }
MyText: String;

begin
MyText := 'Number of pixels in region: ';
MyText := MyText + IntToStr(Lead1.GetRgnArea);
Edit1.Text := MyText;
end;