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.