Query.SQL.Clear;
Query.SQL.Add('Select rtrim(id_elemento)id_elemento,
rtrim(nombre)nombre,');
Query.SQL.Add('rtrim(id_tipo)id_tipo,rtrim(id_representacion)
id_representacion');
Query.SQL.Add('from ELEMENTOS_PROCESO');
Query.SQL.Add('where id_elemento=:id');
Query.Parameters.ParamByName('id').datatype:=ftString;
Query.Parameters.ParamByName('id').value:=IdElemento;
Query.Active:=false;
Query.Active:=true;