tengo un error con un programa usando array

[cloayza]

Empezado por frankmanuel06

muchas gracias ecfisa, pero ahora me da error en el showmessage en donde esta marcado en rojo.

Código Delphi [-]
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.

saludos cordiales!

No será mucha comodidad...

Creo que algunas veces se sobrepasan los límites...