寻求一个函数！

Question

调用一个函数，然后输出若干个空格的函数名！例如：
func(10),则输出10个空格！

Answer 1

我已经写出来了！我晕~谁来接分吧！function TForm1.blankF(i: Integer): String;
var
  i1: Integer;
begin
  for i1:= 1 to i do
  begin
    Result := Result + #32;
  end;
end;

Answer 2

function MakeBlank: string;
begin
  Result:= '          ';
end;

Answer 3

function TForm1.Space(Number: Integer): String;
var
  strTmp: Integer;
begin
  for strTmp:= 1 to Nnumber do
  begin
    Result := Result + #32;
  end;
end;