[[Caral]]

Hola
Pues si estas haciendo eso, pues casi todo mal.
Asi esta mal, fijate en los cambios:

Código Delphi [-]
Tado1.Open ,;// aqui sobra una coma antes del punto y coma
Tado1.append ] // aqui falta el punto y coma y sobra un corchete
Tado1.FieldByname('Codigo').asFloat := StrTofloat(edit1.Text);

Intenta esto:

Código Delphi [-]
Tado1.Open;
Tado1.append;
Tado1.FieldByname('Codigo').asFloat := StrTofloat(edit1.Text);

Saludos