Crear fichero

[angelp4492]

vale perdon

tengo esto en un combobox
procedure TForm1.ComboBox14Change(Sender: TObject);
begin
case combobox14.ItemIndex of
-1:begin psos:=0 end;//
0:begin psos:=8 end;//
1:begin psos:=8 end;
2:begin psos:=0 end;
end;
end;

y como bien me has dicho antes lo grabo en un fichero con

WriteLn(Archivo, combobox1.ItemIndex );

pues bien ahora cuando abro el fichero como tb me has dicho antes pongo.

ReadLn(Archivo, Linea); combobox1.ItemIndex := StrToInt(Linea);


y en el combobox se me selecciona el items que he guardado.
por ejemplo si seleccione en el combobox segundo que tiene itemindex(2).
cuando cargo el archivo se me selecciona segundo en el combobox hasta ahora bien.

pero luego tengo que multiplicar por ejemplo 5*valor del itemindex y me da cero. es como si no estuviera nada seleccionado y me coje el cero que es como el itemindex=-1 que es 0;