f := boolean;
i := 0;
while (not f) and (i < DBGrid1.Columns.Count) do begin
    f := (DBGrid1.Columns.Items[i].FieldName=fieldname);
    inc(i);
end;
if f then begin
{....}
end;