Problema de Access Violation

[[Lepe]]

Solo hacer notar que el Standar es muy parecido al tuyo:
- Como norma general, a las variables privadas se le pone el mismo nombre pero con una "F" delante (private Field)
- En lugar de crear funciones y procedimientos, creamos Propiedades (property), ya que nos permiten ejecutar código al leer la propiedad (read) como al asignarle un valor (write) y además en una sóla línea de código tenemos todos los procedimientos que se relacionan con ella:

Código Delphi [-]
  property Tipo :String read GetTipoCta write SetTipoCta;

Tambien se suele añadir el prefijo "Get" cuando se quiere leer el valor de la propiedad, y usamos "Set" cuando es un procedimiento que asigna un valor a la propiedad.

Código Delphi [-]
unit Unit2;
interface

type
  TCuentaBancaria = class(TObject)

  private
  FNumero:string;
  FSaldoCta:currency;
  FTipoCta:string;
  protected
     function GetTipoCta: String;
     procedure SetTipoCta(Value:String);
  public
  constructor Create();
  property Numero:string read FNumCuenta write FNumCuenta;
  property Saldo :Currency read FSaldoCta write FSaldoCta;
  property Tipo :String read GetTipoCta write SetTipoCta;
  procedure Ver();
  
  end;

implementation
constructor TCuentaBancaria.Create();
begin
// no se debe pasar las propiedades al constructor;
// si son 40, ¿le pasas 40 parámetros al constructor?
FNumero := EmptyStr;
FSaldoCta := 0;
FTipoCta := EmptyStr;

end;

function TCuentaBancaria.GetTipoCta: String;
begin 
  result := FTipoCta;
end;

procedure SetTipoCta(Value:String);
begin 
  if Value <> FTipoCta then 
// Si el valor que se le quiere asignar (Value) es distinto 
// del que tenmos en nuestra variable privada ... entonces...
  begin
     FTipoCta := Value; // Guardamos el nuevo valor.
     // hacer algo mas
  end;  

procedure TCuentaBancaria.Ver();
begin
end;

end.

Saludos