Populating the UserString

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
case Random(4) of
0: UniSession.UserString := '[email protected]';
1: UniSession.UserString := '[email protected]';
2: UniSession.UserString := '[email protected]';
3: UniSession.UserString := '[email protected]';
end;
end;