tengo un error con un programa usando array

[ecfisa]

Hola frankmanuel06.

El código donde comentaste el error debería ser:

Código Delphi [-]
procedure TForm1.txtSueldoChange(Sender: TObject);
begin
  if (txtsueldo.text<>'') then
   txtcomision.Text := floattostr(strtofloat(txtsueldo.text)*0.10);
end;

Aunque mas seguro sería:

Código Delphi [-]
procedure TForm1.txtSueldoChange(Sender: TObject);
var
  v: Double;
begin
  if TryStrToFloat(txtSueldo.Text,v) then
    txtComision.Text := FloatToStr(v * 0.10);
end;

Saludos