[aesoem]

Подскажите как лучше организовать программу для заполения бланков примерно такого формата

[NumLock]

TLabel+TEdit (с ограничением длины текста)+TCheckBox

[aesoem]

а потом выполнять печать формы ?

[Pyro]

про печать формы не знаю, а полоски с квадратиками можно сделать так

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char); begin   with Sender as TStringGrid do   begin     Cells[Col, Row] := Key;     if col = ColCount - 1 then       PostMessage(Parent.Handle, WM_NEXTDLGCTL, 0, 0)     else       Col := Col + 1;   end; end;

[NumLock]

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

а потом выполнять печать формы ?

текст вводить в TEdit, а потом печатать из TQuickRep.