[frankmanuel06]

saludos! mi nombre es frank y, tengo un error en un programa que estaba haciendo usando los array, bueno el codigo es el siguiente:

Código Delphi [-]
unit tvendedor_Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    txtcodigo: TEdit;
    Label2: TLabel;
    txtnombre: TEdit;
    Label3: TLabel;
    txtsueldo: TEdit;
    Label4: TLabel;
    txtcomision: TEdit;
    Guardar: TButton;
    Imprimir: TButton;
    procedure txtcodigoKeyPress(Sender: TObject; var Key: Char);
    procedure GuardarClick(Sender: TObject);
    procedure txtsueldoChange(Sender: TObject);
    procedure ImprimirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  Tvendedor = Record
  codigo:integer;
  nombre:string;
  sueldo:double;
  comision:double;
  end;

var
  Form1: TForm1;
  vendedores:array[1..3] of Tvendedor;

implementation

{$R *.dfm}

procedure TForm1.txtcodigoKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['1'..'3',#8]) then
key:=#0;
end;

procedure TForm1.GuardarClick(Sender: TObject);
begin
vendedores[strtoint(txtcodigo.text)].codigo:=strtoint(txtcodigo.text);
vendedores[strtoint(txtcodigo.text)].nombre:=txtnombre.text;
vendedores[strtoint(txtcodigo.text)].sueldo:=strtofloat(txtsueldo.text);
vendedores[strtoint(txtcodigo.text)].comision:=strtofloat(txtsueldo.text)*0.10;

txtcodigo.text:='';
txtnombre.text:='';
txtsueldo.text:='';
txtcomision.text:='';
end;

procedure TForm1.txtsueldoChange(Sender: TObject);
begin
if (txtsueldo.text<>'') then
txtcomision:=floattostr(strtofloat(txtsueldo.text)*0.10); //aqui es que me da error

end;
procedure TForm1.ImprimirClick(Sender: TObject);
var
cont:integer;
begin
for cont:1 to 3 do
showmessage(inttostr(vendedores[cont].codigo+'    '+vendedores[cont].nombre+'   '+floattostr(vendedores[cont].sueldo)+'   '+floattostr(vendedores[cont].comision));
 End;

end;

End.

bueno gracias de antemano y espero me ayuden .