[[coso]]

Hola, deberias poner el codigo fuente de CriaComponent. Ten en cuenta que si cria component es un procedure, entonces nunca te devolvera una string, tal como parece que estas esperando. Deberias hacer, entonces,

Código Delphi [-]
function CriaComponente(qtdCampoChave: Integer; nmTabela, SQL: string) : string;
begin

     ...
     CriaComponente := SQL;
end;

o bien hacer

Código Delphi [-]
procedure CriaComponente(qtdCampoChave : integer; nmTabela : string; var SQL string);
begin
   ...
   // modificar variable SQL
   ...
end;

var
   s : string;
begin
   CriaComponente(1,'test',s);
   ShowMessage(s); // s se ha modificado
end;

como digo, si pones el codigo fuente, nos entenderemos mejor un saludo