program ideone;

type
  TFoo = object
  private
    FData: Integer;
  public
    procedure Update(AData: Integer);
    procedure Show();
  end;
 
  procedure TFoo.Update(AData: Integer);
  begin
    FData := AData;
  end;
 
  procedure TFoo.Show();
  begin
    Write('Data: ', FData);
  end;
 
var
  fooTest: TFoo;
begin
  fooTest.Update(255);
  fooTest.Show();
  ReadLn;
end.