Hola JaviMarciano.
Podes ahorrarte la variable Statement usando la variable implícita
Result,
Código Delphi
[-]
function GetStatement(StatementLines: TStrings): string;
var
i: Integer;
begin
Result := '';
for i := 0 to StatementLines.Count - 1 do
Result := Result + Trim(StatementLines[i]) + ' ';
SetLength(Result, Length(Result)-1);
end;
Saludos