FileWrite

[Аватар]

У вас в посте 6 на событие OnClick кнопки прописан обработчик Button1Click, нажатие конопки и инициализирует собітие OnClick. В последнем примере N6Get ни откуда не вызывается - холостой код.

[Зод]

Ну а мне же нужно что бы без кликов работало.
Как заставить on create работать?

unit Unit1;

 interface

 uses
  // Ìîäóëü System íå íóæäàåòñÿ â îïðåäåëåíèè
   Forms, Dialogs;

 type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
   end;

 var
   Form1: TForm1;

 implementation
{$R *.dfm} // Âëîæåíèå îïðåäåëåíèé ôîðìû

Procedure ShowSum(a, b : Integer);
 var
   total : Integer;
 begin
  // Ñëîæåíèå äâóõ ÷èñåë
   total := a + b;

  // Ïîêàç ñóììû
   ShowMessageFmt('%d + %d = %d',[a,b,total]);
 end;

// Ïîäïðîãðàììà On Create îñíîâíîé ôîðìû - íàøà îñíîâíàÿ ïðîãðàììà
 procedure TForm1.FormCreate(Sender: TObject);
 begin
  // Ïîêàç ñóììû íåñêîëüêèõ ïàð ÷èñåë
   ShowSum(1,2);
   ShowSum(245,62);
 end;

 end.

это пример с сайта одного обучающего но даже это не работает у меня. Я не могу понять почему?

[NetSpace]

а Вы попробуйте сделать вашу команду

ShowSum(245,62);

не при создании формы OnCreate, а по нажатию кнопки на форме. если при помощи кнопки сработает, то, значит, во время создания формы - это не лучшее время что-то делать. задайте обработку в Таймере на 1 интревал, а потом выключите таймер.