function Rand(const count: Integer; const symbols: string): string;
var
  i: Integer;
begin
  Result := '';
  Randomize;
  for i := 1 to count do
  begin
    Result := Result + symbols[Random(Length(symbols))+1];
    Application.ProcessMessages;
  end;
end;