自己作了一个：
function RepeatChar(const Chr:Char;const Count:Integer):String;
begin
if Count>0 then
begin
SetLength(Result,Count);
FillChar(Result[1],Count,Ord(Chr));
end
else
Result:='';
end;
演示：
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=RepeatChar('B',10);
end;
