[aesoem]

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

[NumLock]

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

[aesoem]

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

[Pyro]

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

Код:

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.