error fatal de compilacion

[italo]

en fastReport en alloy ads me tira error cuando ejecuto con Preview...que deberia hacer '''?????alguien me puede ayudar??



function addCommaIfNotEmpty(a: String): String;
begin
result := '';
if a <> '' then result := ', ' + a;
end;
procedure Button1OnClick(Sender: TfrxComponent);
var
i: Integer;
begin
SaveValueToRegistry('FullMode', chkFull.Checked);
SaveValueToRegistry('SortBy', cbSort.ItemIndex);
SaveValueToRegistry('Title', eTitle.Text);
if eTitle.Text <> '' then
eTitle.Text := ': ' + eTitle.Text;
case cbSort.ItemIndex of
0: SortTable('frxComputers', 'Info_Computer_Name');
1: SortTable('frxComputers', 'Info_Manufacturer');
2: SortTable('frxComputers', 'Info_OS');
end;
Memo10.visible := chkFull.Checked;
Memo11.visible := chkFull.Checked;
Memo12.visible := chkFull.Checked;
Memo13.visible := chkFull.Checked;
Memo14.visible := chkFull.Checked;
Memo15.visible := chkFull.Checked;
Memo16.visible := chkFull.Checked;
Memo17.visible := chkFull.Checked;
Memo18.visible := chkFull.Checked;
Memo19.visible := chkFull.Checked;
Memo20.visible := chkFull.Checked;
Memo21.visible := chkFull.Checked;
Memo22.visible := chkFull.Checked;
Memo23.visible := chkFull.Checked;
if not chkFull.Checked then
MasterData1.Height := Memo9.top + Memo9.height;
end;
procedure DialogPage1OnShow(Sender: TfrxComponent);
begin
chkBrief.Checked := LoadValueFromRegistry('FullMode', 'True') = 'False';
cbSort.ItemIndex := LoadValueFromRegistry('SortBy', 0);
eTitle.Text := LoadValueFromRegistry('Title', '');
end;
begin

end.