Tstrings Delphi 2007

[JaviMarciano]

hay una manera de hacer esto más eficiente:
necesito concatenar cada item de un Tstrings en en una cadena separado por espacios

Código Delphi [-]
function TOracle.GetStatement(StatementLines: TStrings): string;
var
  I: Integer;
  Statement: string;
begin
  Statement := '';
  for i := 0 to StatementLines.Count - 1 do
  begin
    Statement := Statement + ' ' + Trim(StatementLines[i]);
  end;
    Result := TrimLeft(Statement);
end;

es para delphi 2007