uses StrUtils; ........ Tabla2.Edit; Tabla2.FieldByName('periodo').AsString := RightStr(Tabla1.FieldByName('periodo').AsString, 7); Tabla2.Post;