Problema de Access Violation

[david_uh]

buen día caballeros
quizás me puedan ayudar en lo siguiente:

He creado un procedimeinto que se encarga de manipular un listbox agregando items a este. luego este lo llamo desde el evento create del Form. todo normal hasta allí pero cuando creo el form en tiempo de ejecucion me da un ERROR de violación de acceso en el procedimiento que manipula la lista. alguien sabe porque????

Código: Seleccionar todo

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    ListBox1: TListBox;
    procedure probar();
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.probar();
begin

ListBox1.Items.Add('fdgdfg');

end;

procedure TForm1.FormShow(Sender: TObject);
begin
//probar();
Form1.probar;
end;

end.

he porobado declarando el procedimeinto fuera de la clase Tform y nada da el mismo error, sin embargo cuadno manipulo la lista directamente en el evento create no hay problemas.

[latindeveloper]

Puenes mostrarnos el codigo desde el cual invocas a la funcion o creas el dialogo?