unit Question3_U;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, ComCtrls;

type
  TfrmQuest3 = class(TForm)
    redOutput: TRichEdit;
    pnlOptions: TPanel;
    btnA: TButton;
    btnB: TButton;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQuest3: TfrmQuest3;
  arrInfo  : array[1..12] of String;
implementation



{$R *.dfm}

procedure TfrmQuest3.FormCreate(Sender: TObject);
begin
  arrInfo[1]:= 'HDRDBRHRHDdRHHDDrhbRR';
  arrInfo[2]:= 'RrBHDrBrRHBBDRHDdBRRhb';
  arrInfo[3]:= 'BBRRRbDBRrBBHHRBBB';
  arrInfo[4]:= 'RBBRBRdBRDBDRRRBbRRRRbBDHHH';
  arrInfo[5]:= 'RHDBBBHRBB';
  arrInfo[6]:= 'RbrBrBDdRrBb';
  arrInfo[7]:= 'bRRbhbdB';
  arrInfo[8]:= 'hbB';
  arrInfo[9]:= 'BHRrB';
  arrInfo[10]:= 'HhbrbBHhRrdrbBDRRRBB';
  arrInfo[11]:= 'BBBbrrRRdrHRBbBRdDBRBDRrBBDRdB';
  arrInfo[12]:= 'BRBrHRBBRrhHHrrRBDbBDbRRrRRBBDRBDDRHhHD';

  redOutput.Paragraph.TabCount := 3;
  redOutput.Paragraph.Tab[0] := 1;
  redOutput.Paragraph.Tab[1] := 30;
  redOutput.Paragraph.Tab[2] := 300;

end;

end.
