[NumLock]

Сообщение от kinder

GenString(); - ошибка

в описание класса метод добавь:

Код:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure GenString;
  public
    { Public declarations }
  end;