以下是小弟的程式碼，麻煩各位大大指導，謝謝

var
dbx4Conn: TDBXConnection;

[code delphi]
function TWebModule1.GetQueryS(const scmd: string): TJSONArray;
var
date_temp_s: TDBXReader;
i: integer;
begin
Result := TJSONArray.Create;
try
if (Assigned(dbx4Conn)) then
begin
cmd := dbx4Conn.CreateCommand;
end else begin
dbx4Conn := TDBXConnectionFactory.GetConnectionFactory.GetConnection
(db_conn, id_conn, pw_conn);
if (Assigned(dbx4Conn)) then
cmd := dbx4Conn.CreateCommand;
end;

try
cmd.Text := scmd;
date_temp_s := cmd.ExecuteQuery;

while date_temp_s.Next do
begin
for i := 0 to date_temp_s.ColumnCount - 1 do
begin
if not date_temp_s.Value[i].IsNull then begin
Result.Add(UnicodeString(date_temp_s.Value[i].AsString));
end else begin
Result.Add('');
end;
end;
end;
except
raise;
end;
finally
FreeAndNil(date_temp_s);
FreeAndNil(dbx4Conn);
end;
end;
[/code]

 感謝大大的指導。因為小弟第一次做web server所以近期過到server的記憶體一直累加上去。那目前已經將程式換成大大所指導的方式。未來如有其他問題。再麻煩請大大指導，謝謝
===================引 用 GrandRURU 文 章===================

[code delphi]
function TWebModule1.GetQueryS(const scmd: string): TJSONArray;
var
date_temp_s: TDBXReader;
i: integer;
begin
Result := TJSONArray.Create;
try
if (Assigned(dbx4Conn)) then
begin
cmd := dbx4Conn.CreateCommand;
end else begin
dbx4Conn := TDBXConnectionFactory.GetConnectionFactory.GetConnection
(db_conn, id_conn, pw_conn);
if (Assigned(dbx4Conn)) then
cmd := dbx4Conn.CreateCommand;
end;

try
cmd.Text := scmd;
date_temp_s := cmd.ExecuteQuery;

while date_temp_s.Next do
begin
for i := 0 to date_temp_s.ColumnCount - 1 do
begin
if not date_temp_s.Value[i].IsNull then begin
Result.Add(UnicodeString(date_temp_s.Value[i].AsString));
end else begin
Result.Add('');
end;
end;
end;
except
raise;
end;
finally
FreeAndNil(date_temp_s);
FreeAndNil(dbx4Conn);
end;
end;
[/code]

不好意思，再補充一下。
有關上述的程式，實際應用應該是由最後操作的函式做清理的工作。

所以程式碼應該還要補充：

jsQueryS := GetQueryS(ASomethingCMD);
try
...
finally
FreeAndNil(jsQueryS);
end;

以上