Siguiendo el estilo de
Delphius:
Código Delphi
[-]
Unit NombreUnidad;
type
TMiclase = TClass;
private
Fa:integer;
Fb:integer;
public
function Suma: integer;
property A:integer read Fa write Fa;
property B:integer read Fb write Fb;
end;
En principio Fa y Fb no proporciona nada nuevo, pero bueno....
La funcion devolverá Fa+Fb que son las variables privadas.
Saludos