delphi有无生成空格的函数，Like VB的space(1)?

━━━━━━━━━━━━━━━━━━━━━
首部 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas
功能 返回字符串AText的ACount个复本
说明 当ACount为0时返回 ' '
参考 function System.SetLength
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━

//Demo
//....
uses StrUtils; //for Delphi6
//....
DupeString(#32, 1); //like Space(1)
//....