множества random

[ganz]

Подскажите пожалуста для кого это не вопрос , а то сильно надо! каким образом мне присвоить ss:= значение ф-ции NewSet для записи в мемо,я уже голову сломал не получается.не совмещаются типы делфи ругается матом.


procedure TfmExample.bbRunClick(Sender: TObject);
const s1=[0..47];
type
TInt = 0..47;
TSet = set of TInt;
T1=ShortInt;
function NewSet(const s: TSet): TSet;
var i: Integer;
begin
Result := [];
for i := 0 to 47 do
if (i in s) and boolean(Random(2)) then
Include(Result, i);
end;
var
m,a:array[1..255] of integer;p,i,k:integer; ss:string; x:TSet;y:ShortInt;
begin ss:=''; mmOutput.Lines.Clear;
ss:= (NewSet(s1);

mmOutput.Lines.Add(ss);
end;
end.