[Amilius]

¿Donde está el famoso ícono "wrap code tag"?

Test:

procedure TFMain.CmbArtefactoChange(Sender: TObject);
var id_nuevo:byte;
begin
id_nuevo:=CmbArtefacto.ItemIndex;
with Archivo.Artefactos[CmbComercio.itemindex][posicion] do
begin
id:=id_nuevo;
modificador:=DefinirModificador(id_nuevo,posicion);
end;
IconoArma.repaint;
PaintBox.repaint;
end;

Al editarlo lo veo identado, pero no así en modo "lectura"..