begin
 if not (StudInfo.Fields[0].DataType = ftString) then
  begin
   Application.MessageBox('Bdny typ pola 0','Bd',MB_OK);
   Exit;
  end;
 if not(CompareText(StudInfo.Fields[0].FieldName, 'NrIndeksu') = 0) then
  begin
   Application.MessageBox('Bdna nazwa pola 0','Bd',MB_OK);
   Exit;
  end;
 Application.MessageBox('Pole numer 0 w porzdku!','Informacja',MB_OK);
end;