Добрый день, ну при условии что поля не переименовывали вручную и известно хотя бы примерное количество - 100 или 1000 полей, можно так
var
i: Integer;
aField: TM_Field;
begin
for i:=1 to 1000 do
begin
aField := GetFieldByName('Field'+IntToStr(i));
if aField <> nil then aField.ShowHint := not aField.ShowHint;
end;
end.
При каждом нажатии на кнопку подсказка будет исчезать и появляться попеременно