function Replicate(const Expressao: string; const Quantidade: Integer): string;
var
a: Integer;
begin
Result := '';
for a := 1 to quantidade do Result := Result + expressao;
end;