var
Memo: TfrxMemoView;
q1,height,permin,permax:integer;
firstpoint:real;

begin
for q1 := 1 to 53 do
begin
//рисуем заголовок
Memo := TfrxMemoView.Create(MasterData1);
Memo.Name := 'Name' + IntToStr(q1);
Memo.Text := IntToStr(q1);
Memo.Height := height;
Memo.Width := height;
Memo.Left := firstpoint + height * q1;
Memo.Top := Memo1.Top;
Memo.Frame.Typ := 15; //активирует все 4 границы
Memo.HAlign := haCenter;
Memo.VAlign := vaCenter;
Memo.StretchMode := smMaxHeight;
Memo.Color := clRed;
Memo.Font.Color := clWhite;

//рисуем данные
Memo := TfrxMemoView.Create(MasterData2);
Memo.Name := 'M' + IntToStr(q1);
Memo.DataSet := ADOQuery2;
Memo.DataField := 'w' + IntToStr(q1);
//Memo.Text := Memo.Name;
Memo.Height := height;
Memo.Width := height;
Memo.Left := firstpoint + height * q1;
Memo.Top := 0;
Memo.Frame.Typ := 15; //активирует все 4 границы
Memo.HAlign := haCenter;
Memo.VAlign := vaCenter;
Memo.StretchMode := smMaxHeight;

Memo27.Left := firstpoint + height * q1 + height;
end;
end.