ถ้ายังงี้ได้เปล่าครับ ก็เข้าไปเขียนใน module ประกาศตัวแปรไว้ เช่น var1,var2,var3......:string;
แล้วก็เข้าไปเขียนคำนวนให้เสร็จ เช่น
begin
var1:=sqlstringdata('select a from b where c="1"');
var2:=sqlstringdata('select a from b where c="2"');
.........
อะไรประมาณนีแหละครับ
พอใน variables1 ก็เข้าไปใส่ว่า value:=var1;
variables2 ก็เข้าไปใส่ว่า value:=var2;
ไม่รู้ว่าจะยากไปกว่าเดิมหรือเปล่า ลองดูครับ 55555555