tengo un error con un programa usando array

[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!