saya mempunyai sebuah tabel, katakan tbl_mahasiswa : fieldnya antara lain kode,nama,alamat,kode_jurusan

Nah yg saya ingin tanyakan bagaimana bahasa didelphinya? Jika di MhsQ ada/terdapat field yang bernama kode_jurusan maka ShowMessage('ada field jurusannya')

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
    for i:=0 to adoquery1.fieldcount-1 do
      if adoquery1.FieldDefList[i].Name ='kode_jurusan' then ShowMessage('ada field jurusannya')  ;
end;

pos('kode_jurusan',query.sql.text) > 0 then ShowMessage('ada field jurusannya');