asignacion de un valor a un dbedit

[elpezfuma]

estoy trabajando con un listtree como un catalogo y segun la line que presione le asigno un valor en otro formulario a un dbedit pero tengo que condicionar la linea aqui les pongo el codigo y los errores no esta terminado pero lo estoy probando y me da errores que desconosco

With Datamodule1 do
If (Tarticulo.State in [dsinsert,dsEdit]) then
begin
Tarticulo.Edit;
tira:= Listacla.Selected.AbsoluteIndex;
nodo:= Listacla.Selected.Text;
Str (tira,nodo1);
Label1.Caption := nodo1 ;
Fbienes.Labelclasificacion.Caption:= nodo;

bienes.DBEditgrupo.DataSource.DataSet.FieldByName(Fbienes.DBEditgrupo.Text).Asstring := '2'

* If tira < 20 then
Fbienes.DBEditsub.DataSource.DataSet.FieldByName(Fbienes.DBEditsub.Text).Asstring := '01'
else
if (tira > 21) and (tira<49)
Then
** Fbienes.DBEditsub.DataSource.DataSet.FieldByName(Fbienes.DBEditsub.Text).Asstring := '02';
{else
if tira < }
end
else
begin
MessageDlg('Debe abrir un nuevo registro antes de insertar los datos',mterror,[mbok],0);
Abort;
end;
* da el siguiente error: Missing operator or semicolon
** da el siguiente error: Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'