我應了一個副程式,用來改變DBGrid 的Title顯示, 目的是要做多語系的Title 
目前拿先將程式改的比較簡單點 用'M_Column1' 改成M_Test 顯示
目前 DBGrid1 是對映DataSource1 到AdoQuery1 上,
var M_Component:TComponent;
K,i,j:Integer;
begin

M_Component := Application.Components[i].FindComponent('DBGrid1');
if (M_Component is TDBGrid) then Begin
for j := 0 to -1 TDBGrid(M_Component).FieldCount do begin
if TDBGrid(M_Component).Fields[j].FieldName= 'M_Column1' then begin
TDBGrid(M_Component).Columns[j].Title.Caption := 'M_Test';
Break;
end;//
end; // for j := 0 to -1 DBGrid1.FieldCount do
end; // if (M_Component is TDBGrid) then Begin


發生的問題
1. 假如我的AdoQuery1 是沒有open , 他就會 TDBGrid(M_Component).FieldCount = 0
將無法執行更換 DBGrid1的Column[j].Title.Caption ='M_Test'
2. 假如我的 取到的AdoQuery1 去資料庫取得的Table 欄位並沒有M_Column1 欄位, 那就會產生亂碼的錯誤.
請問這兩個問題要如何解決?
是否可以不要用TDBGrid(M_Component).FieldCount 與TDBGrid(M_Component).Fields[j].FieldName
因為我發現這兩個都會連扯到AdoQuery 元件, 能否自己去抓自己的DBGrid 就能得到目前我要的資料

副檔是完整的副程式碼,
請個位大大幫忙解惑一下!
謝謝!

203131119
補充說明一下,
我在編譯時, 已經在 DBGrid 裡先用"欄位編輯器" 編輯了 欄位, 我是希望能直接抓我已經編輯好的欄位就可以了,
不需要扯到AdoQuery 元件,

目前我為了防止錯誤產生,就一定要先把AdoQuery 在轉換Title 先open 起來,副程式才能運作,
且抓到的Table 欄位一定要跟欄位編輯器一樣.否則就一定出錯..跳出

附加檔案：5289d1f5b07ce_SetLanguage.txt

編輯記錄

如果ADOQuery1有SQL有可以開的指令，那可以先用CreateField的方式把ADOQuery1.Fields建立起來

沒有的話

就再等高手的回答了