delphi中生成空格的函数

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)
//....