سلام
در MouseMove event اینو نوشتم حل شد:

First_name.Hint := First_name.Text;

حالا می خواهم یکی یکی برای DBEdit ها ننویسم و یکجا همه این DBEdit ها حالت شوند
یک چیزی شبیه به این
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TDBEdit then
begin
TDBEdit(Components[i]).ShowHint := True;
TDBEdit(Components[i]).Hint:= TDBEdit(Components[i]).DataField;
end;