undeclared identifier: tfield hatası

[unnamed]

formumdaki global değişkenlerim şöyle

var
Form6: TForm6;
i:integer;hucre:array[0..3] of string;
x:integer;kod:string;ad:string;soy:string; ctrldraw:boolean;

arkadaşlar aşağıdaki kod tıkır tıkır çalışıyordu
projeyi düzgün tasarlamadığım için yeni bir proje açıp
eski projeden kodları aktarıyordum
undeclared identifier: tfield diye bir hata vermeye başladı
neden olabilir

Kod: Tümünü seç

procedure TForm6.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var sor:boolean;
begin 
if dbgrid1.Columns[0].FieldName='KODU' then  
begin  
hucre[i]:=field.text;
if i=3  then 
begin 
hucre[i]:=field.text;
if ctrldraw=false  then
begin
richedit1.Clear;
richedit1.Lines.Add('                          GENEL BORÇ-ALACAK RAPORU');
richedit1.SelStart:=0;
richedit1.SelLength:=length(richedit1.Lines[0]);
richedit1.SelAttributes.Style:=[fsbold];
ctrldraw:=true;
end;
richedit1.lines.add(hucre[0]+'  '+hucre[1]+'  '+uppercase(hucre[2])+'  '+hucre[3]);
sor:=true;
i:=0;
end;  //4lü dizi richedite eklendi
if not (sor=true) then i:=i+1;  //
end;  
end;  

[rsimsek]

uses a DB unit ini eklemelisin. Çünkü TField ın tanımı orada. Ayrıca kodlarını [ code ] [ /code ] tag ları içine yazarsan daha okunaklı ve şık durur. Bunu mesajını editleyip de yapabilirsin

[unnamed]

hocam teşekürler uses satırına db'yi ekleyince oldu